Permalink
Browse files

[t/spec] remove some junction tests that relied on internal methods; …

…fudge others for Rakudo

git-svn-id: http://svn.pugscode.org/pugs@28989 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent e79be4a commit 8d4ec02f9df7b396a0eb579c3cfbf192385cb4e2 moritz committed Nov 4, 2009
Showing with 6 additions and 25 deletions.
  1. +0 −22 S03-junctions/chained-operators.t
  2. +6 −3 S03-junctions/misc.t
@@ -1,22 +0,0 @@
-use v6;
-
-use Test;
-
-# Tests that (1|2|3) is the same as any(1,2,3).
-# (Test primarily aimed at all backends which use PIL1 --
-# (1|2|3) was treated as (1|(2|3)).)
-
-plan 7;
-
-is +any(1,2,3)!eigenstates, 3;
-is +(1 | 2 | 3)!eigenstates, 3;
-
-is +all(1,2,3)!eigenstates, 3;
-is +(1 & 2 & 3)!eigenstates, 3;
-
-is +one(1,2,3)!eigenstates, 3;
-is +(1 ^ 2 ^ 3)!eigenstates, 3;
-
-is +none(1,2,3)!eigenstates, 3;
-
-# vim: ft=perl6
View
@@ -2,15 +2,15 @@ use v6;
use Test;
-plan 103;
+plan *;
=begin pod
Misc. Junction tests
=end pod
-#?rakudo skip 'Null PMC access in get_integer() (RT #64184)'
+#?rakudo 2 skip 'Null PMC access in get_integer() (RT #64184)'
isa_ok any(6,7), junction;
is any(6,7).WHAT, junction, 'junction.WHAT works';
@@ -134,6 +134,7 @@ sub jok(Object $condition, $msg?) { ok ?($condition), $msg };
my $l;
$j = 1|2;
+ #?rakudo 3 todo 'lower case junction type'
is(~WHAT($j), 'junction()', 'basic junction type reference test');
$k=$j;
@@ -157,7 +158,7 @@ just using .perl until a better approach presents itself.
# L<S03/Junctive operators>
# Canonical stringification of a junction
-sub j (junction $j) { return $j.perl }
+sub j (Object $j) { return $j.perl }
{
# L<S03/Junctive operators/They thread through operations>
@@ -426,11 +427,13 @@ sub junction_diff(Object $this, Object $that) {
}
# RT#67866: [BUG] [LHF] Error with stringifying .WHAT on any junctions
+#?rakudo skip 'lower case junction'
{
ok((WHAT any()) === junction, "test WHAT on empty any junction");
ok(any().WHAT === junction, "test WHAT on empty any junction");
ok((WHAT any(1,2)) === junction, "test WHAT on any junction");
ok(any(1,2).WHAT === junction, "test WHAT on any junction");
}
+done_testing();
# vim: ft=perl6

0 comments on commit 8d4ec02

Please sign in to comment.