tests/wrap

   1 #!/bin/sh
   2 set -e
   3 cd "$CAFTEST_CAF"
   4 : ${CAFTEST_TMP:=tests/tmp}
   5 export CAFTEST_TMP
   6 exec 2>>$CAFTEST_TMP/wrap.log
   7 export HTTP_COOKIE=$(cat "$CAFTEST_TMP/cookie")
   8 export CAFTEST_URLBASE=file:///
   9 tests/cgi "$@" | perl -pe '
  10     next if m/^$/..0;
  11     next unless m/Set-Cookie: (\w+=[^; ]+)/;
  12     my $cf = "$ENV{CAFTEST_TMP}/cookie";
  13     open C, ">", "$cf.new" or die "$cf $!";
  14     print C $1 or die $!;
  15     close C or die $!;
  16     rename "$cf.new", $cf or die "$cf $!";
  17 '