function l4_to_s_test ( )

%*****************************************************************************80
%
%% L4_TO_S_TEST tests L4_TO_S. 
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    01 August 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'L4_TO_S_TEST\n' );
  fprintf ( 1, '  L4_TO_S converts an L4 to a string.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  L4   S\n' );
  fprintf ( 1, '\n' );

  l4 = 0;
  s = l4_to_s ( l4 );
  fprintf ( 1, '   %d    %s\n', l4, s );

  l4 = 1;
  s = l4_to_s ( l4 );
  fprintf ( 1, '   %d    %s\n', l4, s );

  l4 = 1999;
  s = l4_to_s ( l4 );
  fprintf ( 1, '   %d    %s\n', l4, s );

  l4 = false;
  s = l4_to_s ( l4 );
  fprintf ( 1, '   %d    %s\n', l4, s );

  l4 = true;
  s = l4_to_s ( l4 );
  fprintf ( 1, '   %d    %s\n', l4, s );

  return
end
