function chvec_lt_test ( )

%*****************************************************************************80
%
%% chvec_lt_test() tests chvec_lt().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 May 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'chvec_lt_test():\n' );
  fprintf ( 1, '  chvec_lt() is TRUE if c1 < c2\n' );
  fprintf ( 1, '  for character strings c1 and c2.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  C1                    C2                    C1<C2?\n' );
  fprintf ( 1, '\n' );

  c1 = 'minnesota';
  c2 = 'minnesota';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'Minnesota';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'minnesota2';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'minnesot';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'minne';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'minnesotan';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = ' minnesota';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'alaska';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  c1 = 'minnesota';
  c2 = 'wyoming';
  truefalse = chvec_lt ( c1, c2 );
  fprintf ( 1, '  %-20s  %-20s  %s\n', c1, c2, mat2str ( truefalse ) );

  return
end

