function s_to_l4_test ( )

%*****************************************************************************80
%
%% S_TO_L4_TEST tests S_TO_L4.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 November 2015
%
%  Author:
%
%    John Burkardt
%
  test_num = 10;
%
%  In order to use an array, we need all the entries to be the same length.
%
  s_test = [ ...
    '0      '; ...
    'F      '; ...
    'f      '; ...
    '1      '; ...
    'T      '; ...
    't      '; ...
    '  0    '; ...
    '  1  0 '; ...
    '  01   '; ...
    '  Talse' ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'S_TO_L4_TEST\n' );
  fprintf ( 1, '  S_TO_L4 reads logical data from a string.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '        S   L4\n' );
  fprintf ( 1, '\n' );

  for test = 1 : test_num
    s = s_test(test,:);
    l4 = s_to_l4 ( s );
    fprintf ( 1, '  "%7s"  %d\n', s, l4 );
  end

  return
end
