function p00_title_test ( )

%*****************************************************************************80
%
%% p00_title_test() tests p00_title().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    02 March 2026
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'p00_title_test():\n' );
  fprintf ( 1, '  p00_title() returns the title for each test.\n' );
%
%  Get the number of tests.
%
  test_num = p00_test_num ( );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test Title\n' );
  fprintf ( 1, '\n' );

  for test = 1 : test_num

    title = p00_title ( test );

    fprintf ( 1, '       %d:  "%s"\n', test, title );

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

  return
end
