function boundary_representative_test ( )

%*****************************************************************************80
%
%% boundary_representative_test() tests boundary_representative().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 June 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'boundary_representative_test():\n' );
  fprintf ( 1, '  boundary_representative() is given a boundary word, and\n' );
  fprintf ( 1, '  returns the representative of its equivalence class.\n' );

  k = 1;
  [ w, p ] = tetrahex_word ( k );
  name = tetrahex_name ( k );

  for r = 1 : 10

    name1 = [ '  "rotated" ', name, ':' ];
    w1 = [ w(r:end), w(1:r-1) ];
    boundary_print ( w1, p, name1 );

    name2 = [ '  "rotated" ', name, ' representative', ':' ];
    w2 = boundary_representative ( w1 );
    boundary_print ( w2, p, name2 );

  end
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'boundary_representative_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

