Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] tests for [eq], [ne]

git-svn-id: http://svn.pugscode.org/pugs@24230 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit e75736f97840386be8b28618fef9df1d8bf8589a 1 parent d1ccd8b
moritz authored
Showing with 8 additions and 1 deletion.
  1. +8 −1 S03-operators/reduce-metaop.t
9 S03-operators/reduce-metaop.t
View
@@ -1,7 +1,7 @@
use v6;
use Test;
# XXX not sure if plan is right :(
-plan 61;
+plan 67;
=begin pod
@@ -50,6 +50,13 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
ok ( [!=] 4, 5, 6), "[!=] works (1)";
ok (not [!=] 4, 4, 4), "[!=] works (2)";
+ ok (! [eq] <a a b a>), '[eq] basic sanity (positive)';
+ ok ( [eq] <a a a a>), '[eq] basic sanity (negative)';
+ ok ( [ne] <a b c a>), '[ne] basic sanity (positive)';
+ ok (! [ne] <a a b c>), '[ne] basic sanity (negative)';
+ ok ( [lt] <a b c e>), '[lt] basic sanity (positive)';
+ ok (! [lt] <a a c e>), '[lt] basic sanity (negative)';
+
my ($x, $y);
ok ( [=:=] $x, $x, $x), '[=:=] basic sanity 1';
ok (not [=:=] $x, $y, $x), '[=:=] basic sanity 2';
Please sign in to comment.
Something went wrong with that request. Please try again.