function s_to_digits_test ( )

%*****************************************************************************80
%
%% s_to_digits_test() tests s_to_digits().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 September 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 's_to_digits_test():\n' );
  fprintf ( 1, '  s_to_digits() converts string -> digit vector\n' );
  
  s = '34E94-70.6';
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test string: "%s"\n', s );
  n = 5;
  dvec = s_to_digits ( s, n );
  fprintf ( 1, '  Requested 5 digits:' )
  display ( dvec );

  s = '34E94-70.6';
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test string: "%s"\n', s );
  n = 7;
  dvec = s_to_digits ( s, n );
  fprintf ( 1, '  Requested 7 digits:' )
  display ( dvec );

  return
end
