function s_to_isbn_digits_test ( )

%*****************************************************************************80
%
%% S_TO_ISBN_DIGITS_TEST tests S_TO_ISBN_DIGITS.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    16 September 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'S_TO_ISBN_DIGITS_TEST\n' );
  fprintf ( 1, '  S_TO_ISBN_DIGITS: string -> ISBN digit vector\n' );
  
  s = '34E9X-70.6';
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Test string: "%s"\n', s );
  n = 5;
  dvec = s_to_isbn_digits ( s, n );
  i4vec_print ( n, dvec, '  Extracted 5 digits:' );

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

  return
end
