function s_escape_tex_test ( )

%*****************************************************************************80
%
%% s_escape_tex_test() tests s_escape_tex().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 December 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 's_escape_tex_test():\n' );
  fprintf ( 1, '  s_escape_tex() "protects" characters in a string\n' );
  fprintf ( 1, '  that might otherwise be interpreted as TeX\n' );
  fprintf ( 1, '  escape characters.\n' );

  s1 = 'The file A_B.TXT is {I think__so} of size 2^8 or C\B.';
  s2 = s_escape_tex ( s1 );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Original string: "%s"\n', s1 );
  fprintf ( 1, '  Modified string: "%s"\n', s2 );

  s1 = 'file_name: Fat T.';
  s2 = s_escape_tex ( s1 );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Original string: "%s"\n', s1 );
  fprintf ( 1, '  Modified string: "%s"\n', s2 );


  return
end
