mirror of
https://github.com/coreutils/coreutils.git
synced 2024-12-15 12:54:36 +08:00
*** empty log message ***
This commit is contained in:
parent
b79cd299cb
commit
b035c9078c
41
tests/md5sum/newline-1
Executable file
41
tests/md5sum/newline-1
Executable 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
|
Loading…
Reference in New Issue
Block a user