function s_quote_test ( )

%*****************************************************************************80
%
%% S_QUOTE_TEST tests S_QUOTE.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    30 January 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'S_QUOTE_TEST\n' );
  fprintf ( 1, '  S_QUOTE quotes a string S1 with a mark MARK.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  ----S1----  ---MARK---  ----S2----\n' );
  fprintf ( 1, '\n' );

  s1 = 'Hi, Bob!';
  mark = '"';
  s2 = s_quote ( s1, mark );
  fprintf ( 1, '  %-10s  %-10s  %-10s\n', s1, mark, s2 );

  s1 = 'De';
  mark = 'Loop';
  s2 = s_quote ( s1, mark );
  fprintf ( 1, '  %-10s  %-10s  %-10s\n', s1, mark, s2 );

  return
end
