function variomino_equal_test ( )

%*****************************************************************************80
%
%% variomino_equal_test() tests variomino_equal().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 April 2023
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'variomino_equal_test():\n' );
  fprintf ( 1, '  variomino_equal() determines if variominoes are equal.\n' );

  p1 = [ ...
     3,  0,  2,  3;
     2,  3,  1,  0;
     0,  2,  3,  0 ];
  variomino_print ( p1, '  The variomino P1:' );

  p2 = [ ...
     3,  0,  2,  3;
     2,  3,  1,  0;
     0,  2,  0,  0 ];
  variomino_print ( p1, '  The variomino P2:' );

  p3 = [ ...
     3,  0,  2,  3,  0;
     2,  3,  1,  0,  0;
     0,  2,  3,  0,  0 ];
  variomino_print ( p3, '  The variomino P3:' );

  p4 = [ ...
     3,  0,  2,  3;
     2,  3,  1,  0;
     0,  2,  3,  0 ];
  variomino_print ( p4, '  The variomino P4:' );

  fprintf ( 1, '\n' );
  value = variomino_equal ( p1, p1 );
  fprintf ( 1, '  P1 == P1? %s\n', mat2str ( value ) );
  value = variomino_equal ( p1, p2 );
  fprintf ( 1, '  P1 == P2? %s\n', mat2str ( value ) );
  value = variomino_equal ( p1, p3 );
  fprintf ( 1, '  P1 == P3? %s\n', mat2str ( value ) );
  value = variomino_equal ( p1, p4 );
  fprintf ( 1, '  P1 == P4? %s\n', mat2str ( value ) );

  return
end
