more t/op/sort.t tests

[p5sagit/p5-mst-13.2.git] / t / op / misc.t

diff --git a/t/op/misc.t b/t/op/misc.t
index 3b88a0a..e3bf576 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -179,6 +179,9 @@ BEGIN failed--compilation aborted at - line 1.
     sub TIEHANDLE {
         bless {}, shift;
     }
+    sub READLINE {
+       "Out of inspiration";
+    }
     sub DESTROY {
        print "and destroyed as well\n";
     }
@@ -187,7 +190,9 @@ BEGIN failed--compilation aborted at - line 1.
     local(*FOO);
     tie(*FOO,'foo');
     print FOO "sentence.", "reversed", "a", "is", "This";
+    print "-- ", <FOO>, " --\n";
 }
 EXPECT
 This is a reversed sentence.
+-- Out of inspiration --
 and destroyed as well