function s_to_digits_test ( )

%*****************************************************************************80
%
%% s_to_digits_test() tests s_to_digits().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    08 September 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'S_TO_DIGITS_TEST\n' );
  fprintf ( 1, '  S_TO_DIGITS: 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 );
  i4vec_print ( n, dvec, '  Extracted 5 digits:' );

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

  return
end
