*** empty log message ***

This commit is contained in:
Jim Meyering 1999-03-07 14:37:27 +00:00
parent b79cd299cb
commit b035c9078c

41
tests/md5sum/newline-1 Executable file
View File

@ -0,0 +1,41 @@
#!/bin/sh
: ${PERL=perl}
: ${srcdir=.}
case "$PERL" in
*'missing perl')
echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
exit 77
;;
esac
if test -n "$COMSPEC$ComSpec"; then
# DOS/Windows
echo 1>&2 "$0: This test would always fail on MSDOS/Window systems"
exit 77
fi
exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
require 5.003;
use strict;
(my $program_name = $0) =~ s|.*/||;
# Turn off localisation of executable's ouput.
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
my $degenerate = "d41d8cd98f00b204e9800998ecf8427e";
my @Tests =
(
['newline', {IN=> {"a\nb"=> ''}}, {OUT=>"\\$degenerate a\\nb\n"}],
);
my $save_temps = $ENV{DEBUG};
my $verbose = $ENV{VERBOSE};
my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n";
my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
exit $fail;
EOF