Changeset 22938 for t

Timestamp:

11/09/08 19:21:21 (2 months ago)

Author:

moritz

Message:

[t] move some junction tests

Location:

t

Files:

• junction/abc.t (deleted)
• spec/S03-junctions/autothreading.t (added)
• spec/S03-junctions/basic.t (moved) (moved from t/junction/junction_functions.t) (4 diffs)
• spec/S03-junctions/misc.t (modified) (2 diffs)

t/spec/S03-junctions/basic.t

@@ -3 +3 @@
 use Test;
 
-plan 23;
+plan 22;
 
 =begin pod
@@ -14 +14 @@
 
 my $j = any(1, 2, 3);
-is(WHAT($j), 'Junction', '$j is a Junc');
+ok $j ~~ Junction, '$j is a Junction';
 
-is($j.perl, '\(1 | 2 | 3)', 'got the right stringified junction');
-
-my @values = $j.values;
+my @values = $j.values.sort;
 is(+@values, 3, 'our junction has three values in it');
 
-# XXX relies on the order of elements in Junction, which is not allowed.
 is(@values[0], 1, 'our junctions first value is 1');
 is(@values[1], 2, 'our junctions second value is 2');
@@ -28 +25 @@
 my $sums = $j + 3;
 
-is(WHAT($sums), 'Junction', '$sums is a Junc');
+ok $sums ~~ Junction, '$j + 3 is also a Junction';
 
 my @sums_values = sort $sums.values;
@@ -38 +35 @@
 # loop enough to go through it twice
 for (1 .. 6) {
-    ok((1 ^ 2 ^ 3) == $j.pick, 'it is always at least one');
-    ok((1 | 2 | 3) == $j.pick, 'it is always one of them');
+    ok((1 ^ 2 ^ 3) == $j.values.pick, 'it is always at least one');
+    ok((1 | 2 | 3) == $j.values.pick, 'it is always one of them');
 }

t/spec/S03-junctions/misc.t

@@ -3 +3 @@
 use Test;
 
-plan 76;
+plan 78;
 
 =begin pod
@@ -324 +324 @@
     is $c, 1, 'if modifier with junction should be called once';
 }
+
+{
+    my @array = <1 2 3 4 5 6 7 8>;
+    ok( all(@array) == one(@array), "all(@x) == one(@x) tests uniqueness(+ve)" );
+
+    push @array, 6;
+    ok( !( all(@array) == one(@array) ), "all(@x) == one(@x) tests uniqueness(-ve)" );
+
+}