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" } +