Actually submit previous change.

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / perlio

diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio
index 85aa5f2..0ccc5a8 100644 (file)
--- a/t/lib/warnings/perlio
+++ b/t/lib/warnings/perlio
@@ -8,16 +8,16 @@
     Setting cnt to %d, ptr implies %d
 
 
-perlio: invalid separator character %c%c%c in layer specification list %s
+Invalid separator character %c%c%c in PerlIO layer specification %s
 
     open(F, ">:-aa", "bb")
 
 
-perlio: argument list not closed for layer \"%.*s\""
+Argument list not closed for PerlIO layer \"%.*s\""
 
     open(F, ">:aa(", "bb")
 
-perlio: unknown layer \"%.*s\"
+Unknown PerlIO layer \"%.*s\"
 
     # PerlIO/xyz.pm has 1;
     open(F, ">xyz", "bb")
@@ -29,8 +29,9 @@ no warnings 'layer';
 open(F, ">:-aa", "bb");
 use warnings 'layer';
 open(F, ">:-aa", "bb");
+close F;
 EXPECT
-perlio: invalid separator character '-' in layer specification list -aa at - line 6.
+Invalid separator character '-' in PerlIO layer specification -aa at - line 6.
 ########
 
 # perlio [PerlIO_parse_layers]
@@ -38,11 +39,12 @@ no warnings 'layer';
 open(F, ">:aa(", "bb");
 use warnings 'layer';
 open(F, ">:aa(", "bb");
+close F;
 EXPECT
-perlio: argument list not closed for layer "aa(" at - line 6.
+Argument list not closed for PerlIO layer "aa(" at - line 6.
 ########
 
---FILE-- PerlIO/xyz.pm
+--FILE-- PerlIO_test_dir/xyz.pm
 1;
 --FILE--
 # perlio [PerlIO_parse_layers]
@@ -50,5 +52,7 @@ no warnings 'layer';
 open(F, ">:xyz", "bb");
 use warnings 'layer';
 open(F, ">:xyz", "bb");
+close F;
+END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
 EXPECT
-perlio: unknown layer "xyz".
+Unknown PerlIO layer "xyz" at - line 5.