tests/sort/build-script.pl

   1 #! @PERL@ -w
   2 # -*- perl -*-
   3 # @configure_input@
   4
   5 require 5.002;
   6
   7 BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; }
   8 use strict;
   9 use Test;
  10
  11 $| = 1;
  12
  13 my $xx = $ARGV[0];
  14
  15 print <<EOF;
  16 #! /bin/sh
  17 # This script was generated automatically by build-script.
  18 case \$# in
  19   0) xx='$xx';;
  20   *) xx="\$1";;
  21 esac
  22 test "\$VERBOSE" && echo=echo || echo=:
  23 \$echo testing program: \$xx
  24 errors=0
  25 test "\$srcdir" || srcdir=.
  26 test "\$VERBOSE" && \$xx --version 2> /dev/null
  27 EOF
  28
  29 my %seen;
  30
  31 my $test_vector;
  32 foreach $test_vector (@Test::t)
  33   {
  34     my ($test_name, $flags, $input, $expected, $e_ret_code)
  35         = @{$test_vector};
  36     die "$0: $.: duplicate test name \`$test_name'\n"
  37       if (defined ($seen{$test_name}));
  38     $seen{$test_name} = 1;
  39     my $in = "t$test_name.in";
  40     my $exp_name = "t$test_name.exp";
  41     my $out = "t$test_name.out";
  42
  43     open (IN, ">$in") || die "$0: $in: $!\n";
  44     print IN $input;
  45     close (IN) || die "$0: $in: $!\n";
  46     open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
  47     print EXP $expected;
  48     close (EXP) || die "$0: $exp_name: $!\n";
  49     my $err_output = "t$test_name.err";
  50
  51     my $cmd = "\$xx $flags \$srcdir/$in > $out 2> $err_output";
  52     $exp_name = "\$srcdir/$exp_name";
  53     print <<EOF ;
  54 $cmd
  55 code=\$?
  56 if test \$code != $e_ret_code ; then
  57   \$echo Test $test_name failed: $xx return code \$code differs from expected value $e_ret_code 1>&2
  58   errors=`expr \$errors + 1`
  59 else
  60   cmp $out $exp_name
  61   case \$? in
  62     0) if test "\$VERBOSE" ; then \$echo passed $test_name; fi ;; # equal files
  63     1) \$echo Test $test_name failed: files $out and $exp_name differ 1>&2;
  64        errors=`expr \$errors + 1` ;;
  65     2) \$echo Test $test_name may have failed. 1>&2;
  66        \$echo The command \"cmp $out $exp_name\" failed. 1>&2 ;
  67        errors=`expr \$errors + 1` ;;
  68   esac
  69 fi
  70 test -s $err_output || rm -f $err_output
  71 EOF
  72   }
  73 print <<EOF2 ;
  74 if test \$errors = 0 ; then
  75   \$echo Passed all tests. 1>&2
  76 else
  77   \$echo Failed \$errors tests. 1>&2
  78 fi
  79 test \$errors = 0 || errors=1
  80 exit \$errors
  81 EOF2