t/testc.sh: added 193

rurban · Dec 4, 2013 · 3a29e8a · 3a29e8a
1 parent c1af0b2
commit 3a29e8a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/testc.sh b/t/testc.sh
@@ -629,6 +629,8 @@ tests[192]='use warnings;
  }}->($h{k});
 }'
 result[192]='ok'
+tests[193]='unlink q{not.a.file}; $! = 0; open($FOO, q{not.a.file}); print( $! ne 0 ? "ok" : q{error: $! should not be 0}."\n"); close $FOO;'
+result[193]='ok'
 tests[200]='%u=("\x{123}"=>"fo"); print "ok" if $u{"\x{123}"} eq "fo"'
 result[200]='ok'
 tests[2001]='BEGIN{%u=("\x{123}"=>"fo");} print "ok" if $u{"\x{123}"} eq "fo";'