tests/join/build-script

   1 #!/usr/bin/perl -w
   2
   3 $join = 'join';
   4 $join = '/usr/bin/join';
   5 $join = './join';
   6 $test = 0;
   7 $| = 1;
   8
   9 print ":\n$join --version\nerrors=0\n";
  10 $expected = '';
  11 $flags = '';
  12 $f1 = '';
  13 $f2 = '';
  14
  15 while (<>)
  16   {
  17     next if (/^\s*#/ || /^\s+$/);
  18
  19     $test++;
  20     chop;
  21     $prog = '($test_name, $flags,$f1,$f2,$expected,$e_ret_code) = ' . $_ . ';';
  22     eval $prog;
  23     if (defined ($seen{$test_name}))
  24       {
  25         die "$0: $.: duplicate test name \`$test_name'\n";
  26       }
  27     $seen{$test_name} = 1;
  28     $in1 = "t$test_name.1";
  29     $in2 = "t$test_name.2";
  30     $log = "t$test_name.log";
  31     $exp_name = 't' . $test_name . '.exp';
  32     $out = "t$test_name.out";
  33
  34     open(IN, ">$in1") || die "Couldn't open $in1 for writing.\n";
  35     print IN $f1;
  36     close(IN);
  37     open(IN, ">$in2") || die "Couldn't open $in2 for writing.\n";
  38     print IN $f2;
  39     close(IN);
  40     open(EXP, ">$exp_name")
  41         || die "Couldn't open $exp_name for writing.\n";
  42     print EXP $expected;
  43     close(EXP);
  44     $cmd = "$join $flags $in1 $in2 > $out";
  45     print <<EOF ;
  46 $cmd 2> $log
  47 code=\$?
  48 fail=yes
  49 if test \$code != $e_ret_code ; then
  50   err_msg="Test $test_name failed: join return code \$code differs from expected value $e_ret_code"
  51 else
  52   cmp $out $exp_name >> $log 2>&1
  53   case \$? in
  54     0) # equal files
  55        if test "\$verbose" ; then
  56          echo passed $test_name
  57        fi
  58        fail=no
  59        ;;
  60     1) err_msg="Test $test_name failed: files $out and $exp_name differ"
  61        ;;
  62     2) err_msg="Test $test_name may have failed.
  63 echo The command \"cmp $out $exp_name\" failed."
  64        ;;
  65   esac
  66 fi
  67 if test \$fail = yes; then
  68   errors=`expr \$errors + 1`
  69   echo "Failing command: $cmd" >> $log
  70   echo "\$err_msg" >> $log
  71 fi
  72 test -s $log || rm -f $log
  73 EOF
  74   }
  75 print <<EOF2 ;
  76 if test \$errors -gt 0 ; then
  77   echo "Failed \$errors tests." 1>&2
  78 else
  79   echo 'Passed all tests.' 1>&2
  80 fi
  81 EOF2