tests/md5sum/basic-1

   1 #!/bin/sh
   2
   3 : ${PERL=perl}
   4 : ${srcdir=.}
   5
   6 case "$PERL" in
   7   *'missing perl')
   8   echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
   9   exit 77
  10   ;;
  11 esac
  12
  13 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
  14 require 5.003;
  15 use strict;
  16
  17 (my $program_name = $0) =~ s|.*/||;
  18
  19 # Turn off localisation of executable's ouput.
  20 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
  21
  22 my $degenerate = "d41d8cd98f00b204e9800998ecf8427e";
  23
  24 my @Tests =
  25     (
  26      ['1', {IN=> {f=> ''}},     {OUT=>"$degenerate  f\n"}],
  27      ['2', {IN=> {f=> 'a'}},    {OUT=>"0cc175b9c0f1b6a831c399e269772661  f\n"}],
  28      ['3', {IN=> {f=> 'abc'}},  {OUT=>"900150983cd24fb0d6963f7d28e17f72  f\n"}],
  29      ['4', {IN=> {f=> 'message digest'}},
  30                                 {OUT=>"f96b697d7cb7938d525a2f31aaf161d0  f\n"}],
  31      ['5', {IN=> {f=> 'abcdefghijklmnopqrstuvwxyz'}},
  32                                 {OUT=>"c3fcd3d76192e4007dfb496cca67e13b  f\n"}],
  33      ['6', {IN=> {f=> join ('', 'A'..'Z', 'a'..'z', '0'..'9')}},
  34                                 {OUT=>"d174ab98d277d9f5a5611c2c9f419d9f  f\n"}],
  35      ['7', {IN=> {f=> '1234567890' x 8}},
  36                                 {OUT=>"57edf4a22be3c955ac49da2e2107b67a  f\n"}],
  37      ['backslash', {IN=> {".\\foo"=> ''}},
  38                                 {OUT=>"\\$degenerate  .\\\\foo\n"}],
  39     );
  40
  41 # Insert the `--text' argument for each test.
  42 my $t;
  43 foreach $t (@Tests)
  44   {
  45     splice @$t, 1, 0, '--text';
  46   }
  47
  48 my $save_temps = $ENV{DEBUG};
  49 my $verbose = $ENV{VERBOSE};
  50
  51 my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n";
  52 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
  53 exit $fail;
  54 EOF