shithub: kwa

ref: d38caa1bee4fc59e86f2cc1de2787d319ac2bffe
dir: /test/T.close/

#!/bin/rc
echo T.close: test close built-in

rm -f foo
$awk '{ print >>"foo"; close("foo") }' /lib/theo
diff /lib/theo foo || echo 'BAD: T.close (1)'

ls -l >foo
tail -1 foo >foo1
$awk '{ print >"foo2"; close("foo2") }' foo
diff foo1 foo2 || echo 'BAD: T.close (2)'

echo 0 >foo1
$awk '	# non-accessible file
  BEGIN { getline <"/lib/theo"; print close("/lib/theo"); }
' >foo2
diff foo1 foo2 || echo 'BAD: T.close (3)'

echo -1 >foo1
$awk '	# file not opened
  BEGIN { print close("glotch"); }
' >foo2
diff foo1 foo2 || echo 'BAD: T.close (4)'

echo 0 >foo1
$awk '	# normal close
  BEGIN { print "hello" > "foo"; print close("foo"); }
' >foo2
diff foo1 foo2 || echo 'BAD: T.close (5)'

echo 0 >foo1
$awk '	# normal close
  BEGIN { print "hello" | "cat >foo"; print close("cat >foo"); }
' >foo2
diff foo1 foo2 || echo 'BAD: T.close (6)'