function pariomino_embed_number_test ( )

%*****************************************************************************80
%
%% pariomino_embed_number_test tests pariomino_embed_number.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 May 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariomino_embed_number_test:\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  pariomino_embed_number() reports the number of ways a\n' );
  fprintf ( 1, '  fixed pariomino can be embedded in a region.\n' );

  r = [ ...
     0, -1, +1, -1; 
    -1, +1,  0, +1;
    +1, -1, +1, -1; 
    -1,  0, -1, +1 ];

  pariomino_print ( r, '  Region R:' );

  p = [ ...
     0, -1;
     0, +1;
    +1, -1 ];

  pariomino_print ( p, '  Pariomino P:' );

  number = pariomino_embed_number ( r, p );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  P can be embedded in R in %d ways\n', number );

  p = [ ...
     0, +1;
     0, -1;
    -1, +1 ];

  pariomino_print ( p, '  Pariomino P:' );

  number = pariomino_embed_number ( r, p );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  P can be embedded in R in %d ways\n', number );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariomino_embed_number_test:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
