function filum_test165 ( )

%*****************************************************************************80
%
%% filum_test165() tests filename_inc_nowrap().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 November 2011
%
%  Author:
%
%    John Burkardt
%
  ntest = 4;

  string(1,1:11) = 'file???.dat';
  string(2,1:11) = 'file072.dat';
  string(3,1:11) = '2cat9.dat  ';
  string(4,1:11) = 'fred98.txt ';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'filum_test165():\n' );
  fprintf ( 1, '  filename_inc_nowrap() increments a string\n' );
  fprintf ( 1, '  but does not allow "wrapping".\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '     Input             Output\n' );

  for i = 1 : ntest
    fprintf ( 1, '\n' );
    filename = string(i,:);
    for j = 1 : 4
      filename_old = filename;
      filename = filename_inc_nowrap ( filename );
      fprintf ( 1, '  %20s  %20s\n', filename_old, filename );
      if ( s_len_trim ( filename ) == 0 )
        fprintf ( 1, '  (Empty output string.  Quit loop!)\n' );
        break
      end
    end
  end

  return
end
