Attached is a patch for t/op/not.t. This is a nearly direct port of the
t/op/not.t in bleadperl. Missing though is a comparison against a
boolianized undef, which I don't know if it exists in Perl 6 or not.
Enjoy!
Steve Peters
[EMAIL PROTECTED]
--- /dev/null 2005-02-19 03:47:20.626125536 -0600
+++ t/op/not.t 2005-02-22 21:52:00.710830155 -0600
@@ -0,0 +1,33 @@
+# taken mostly from Perl 5.8.7-tobe
+
+say "1..12";
+
+# not() tests
+if (not() == 1) { say "ok 1" } else { say "not ok 1" }
+if (not(0) == 1) { say "ok 2" } else { say "not ok 2" }
+
+if ((not 1) == (! 1)) { say "ok 3" } else { say "not ok 3" }
+if ((not 0) == (! 0)) { say "ok 4" } else { say "not ok 4" }
+
+# Test the not 1 equals the various falses. Check not 0 too.
+# TODO: add undef below
+
+my $not0 = not 0;
+my $not1 = not 1;
+
+if ($not1 eq '') { say "ok 5" } else { say "not ok 5" }
+if ($not1 == ()) { say "ok 6" } else { say "not ok 6" }
+if ($not1 == 0) { say "ok 7" } else { say "not ok 7" }
+if ($not0 == 1) { say "ok 8" } else { say "not ok 8" }
+
+# Test the ! 1 equals the various falses. Check ! 0 too.
+# TODO: add undef below
+
+$not0 = ! 0;
+$not1 = ! 1;
+
+if ($not1 eq '') { say "ok 9" } else { say "not ok 9" }
+if ($not1 == ()) { say "ok 10" } else { say "not ok 10" }
+if ($not1 == 0) { say "ok 11" } else { say "not ok 11" }
+if ($not0 == 1) { say "ok 12" } else { say "not ok 12" }
+
