Permalink
Browse files

Add tests for single argument versions of infix:<==> and infix:<!=>.

Someone with more time could go through and repeat this process for the other operators tested in this file...
  • Loading branch information...
1 parent e693fe6 commit 16c3770e4c00519e380e1345e818f250bcf01ac9 @colomon colomon committed Jul 6, 2011
Showing with 6 additions and 1 deletion.
  1. +6 −1 S03-operators/equality.t
View
7 S03-operators/equality.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 28;
+plan 32;
# adapted from t/operators/eq.t and t/operators/cond.t
# relational ops are in relational.t
@@ -39,6 +39,11 @@ ok(!(2 == 3), "== false");
ok(2 != 3, "!= true");
ok(!(2 != 2), "!= false");
+ok infix:<==>(False), "== with one argument is correct";
+ok infix:<==>(), "== with no arguments is correct";
+ok infix:<!=>(False), "!= with one argument is correct";
+ok infix:<!=>(), "!= with no arguments is correct";
+
#L<S03/Negated relational operators>
ok(2 !== 3, "!== true");
ok(!(2 !== 2), "!== false");

0 comments on commit 16c3770

Please sign in to comment.