File::Copy under OS/2

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

diff --git a/t/op/misc.t b/t/op/misc.t
index 3b88a0a..5bcc6a0 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -37,6 +37,14 @@ for (@prgs){
 }
 
 __END__
+()=()
+########
+$cusp = ~0 ^ (~0 >> 1);
+$, = " ";
+print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n";
+EXPECT
+7 0 0 1 !
+########
 $foo=undef; $foo->go;
 EXPECT
 Can't call method "go" without a package or object reference at - line 1.
@@ -179,6 +187,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 +198,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