function chvec_reduce_test ( )

%*****************************************************************************80
%
%% chvec_reduce_test() tests chvec_reduce().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 May 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'chvec_reduce_test():\n' );
  fprintf ( 1, '  chvec_reduce() replaces a string of the same character\n' );
  fprintf ( 1, '  by a single occurrence.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  cv1                    cv2\n' );
  fprintf ( 1, '\n' );

  cv1 = 'minnesota';
  cv2 = chvec_reduce ( cv1 );
  fprintf ( 1, '  %-20s  %-20s\n', cv1, cv2 );

  cv1 = 'all love ends';
  cv2 = chvec_reduce ( cv1 );
  fprintf ( 1, '  %-20s  %-20s\n', cv1, cv2 );

  cv1 = 'allloveends';
  cv2 = chvec_reduce ( cv1 );
  fprintf ( 1, '  %-20s  %-20s\n', cv1, cv2 );

  cv1 = 'allLoveEnds';
  cv2 = chvec_reduce ( cv1 );
  fprintf ( 1, '  %-20s  %-20s\n', cv1, cv2 );

  cv1 = 'July year 1776';
  cv2 = chvec_reduce ( cv1 );
  fprintf ( 1, '  %-20s  %-20s\n', cv1, cv2 );

  return
end

