Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Comment out obsolete tests, fudge for niecza.

  • Loading branch information...
commit f8523692994cfb7dfd5ef60cd5bcf428ba0e2fe6 1 parent 1596c94
colomon authored January 06, 2012
37  S03-sequence/misc.t
@@ -3,7 +3,7 @@ use Test;
3 3
 
4 4
 
5 5
 # L<S03/List infix precedence/constraints implied by the signature of the function>
6  
-
  6
+#?niecza skip 'Nominal type check failed in binding Int $n in f; got Str, needed Int'
7 7
 {
8 8
     sub f (Int $n) { $n > 3 ?? 'liftoff!' !! $n + 1 }
9 9
     is (1, &f ... *).join(' '), '1 2 3 liftoff!', 'sequence terminated by signature mismatch';
@@ -13,11 +13,13 @@ use Test;
13 13
 
14 14
 # XXX This is surely the wrong way to test this, but I don't know
15 15
 #     the right way.
  16
+#?niecza skip 'Need something on the LHS'
16 17
 is (() ... *)[^3].perl, '((), (), ())', 'Nil sequence';
17 18
 
18 19
 # L<S03/List infix precedence/interleave unrelated sequences>
19 20
 # multiple return values
20 21
 
  22
+#?niecza 5 todo
21 23
 is (1, 1, { $^a + 1, $^b * 2 } ... *)[^12].join(' '), '1 1 2 2 3 4 4 8 5 16 6 32', 'sequence of two interleaved sequences';
22 24
 is (1, 1, 1, { $^a + 1, $^b * 2, $^c - 1 } ... *)[^18].join(' '), '1 1 1 2 2 0 3 4 -1 4 8 -2 5 16 -3 6 32 -4', 'sequence of three interleaved sequences';
23 25
 is (1, { $^n + 1 xx $^n + 1 } ... *)[^10].join(' '), '1 2 2 3 3 3 4 4 4 4', 'sequence with list-returning block';
@@ -35,6 +37,7 @@ eval_dies_ok '(1, 2, ... 3)[2]', 'yada operator not confused for sequence operat
35 37
 is (1 ... 5 ... 10).join(' '),
36 38
     '1 2 3 4 5 6 7 8 9 10',
37 39
     'simple chained finite arithmetic sequence';
  40
+#?niecza skip 'Slicel lists are NYI'
38 41
 is infix:<...>(1; 5; 10).join(' '),
39 42
     '1 2 3 4 5 6 7 8 9 10',
40 43
     "simple chained finite arithmetic sequence (with 'infix:<...>')";
@@ -44,34 +47,46 @@ is (1 ... 5, 10 ... 25, 50 ... 150).join(' '),
44 47
 is (1 ... 4, 8, 16 ... 64, 63, 62 ... 58).join(' '),
45 48
     '1 2 3 4 8 16 32 64 63 62 61 60 59 58',
46 49
     'chained finite numeric sequence';
  50
+#?niecza skip 'Slicel lists are NYI'
47 51
 is infix:<...>(1;   4, 8, 16;   64, 63, 62;   58).join(' '),
48 52
     '1 2 3 4 8 16 32 64 63 62 61 60 59 58',
49 53
     "chained finite numeric sequence (with 'infix:<...>')";
50 54
 is (1/4, 1/2, 1 ... 8, 9 ... *)[^10].join(' '),
51  
-    '1/4 1/2 1 2 4 8 9 10 11 12',
  55
+    '0.25 0.5 1 2 4 8 9 10 11 12',
52 56
     'chained infinite numeric sequence';
  57
+#?niecza skip 'Slicel lists are NYI'
53 58
 is infix:<...>(1/4, 1/2, 1;   8, 9;   *).join(' '),
54 59
     '1/4 1/2 1 2 4 8 9 10 11 12',
55 60
     "chained infinite numeric sequence (with 'infix:<...>')";
56 61
 is (1, 4, 7 ... 16, 16 ... *)[^8].join(' '),
57 62
     '1 4 7 10 13 16 16 16',
58 63
     'chained eventually constant numeric sequence';
59  
-is (0, 2 ... 7, 9 ... 14).join(' '),
60  
-    '0 2 4 6 7 9 11 13',
61  
-    'chained arithmetic sequence with unreached limits';
62  
-is (0, 2 ...^ 8, 11 ... 17, 18 ...^ 21).join(' '),
63  
-    '0 2 4 6 11 14 17 18 19 20',
64  
-    'chained arithmetic sequence with exclusion';
  64
+    
  65
+# The following is now an infinite sequence...
  66
+# is (0, 2 ... 7, 9 ... 14).join(' '),
  67
+#     '0 2 4 6 7 9 11 13',
  68
+#     'chained arithmetic sequence with unreached limits';
  69
+
  70
+# Mixed ...^ and ... -- should that work?
  71
+# is (0, 2 ...^ 8, 11 ... 17, 18 ...^ 21).join(' '),
  72
+#     '0 2 4 6 11 14 17 18 19 20',
  73
+#     'chained arithmetic sequence with exclusion';
  74
+
  75
+#?niecza skip 'Cannot use value like Block as a number'
65 76
 is (1, *+1  ... { $_ < 5 }, 5, *+10  ... { $_ < 35 }, 35, *+100 ... { $_ < 400 }).join(' '),
66 77
     '1 2 3 4 5 15 25 35 135 235 335',
67 78
     'simple chained sequence with closures';
  79
+#?niecza skip 'Unable to resolve method chars in class Block'
68 80
 is (1, { $^n*2 + 1 } ... 31, *+5 ... { $^n**2 < 2000 }, 'a', *~'z' ... { $_.chars < 6 }).join(' '), 
69 81
     '1 3 7 15 31 36 41 a az azz azzz azzzz',
70 82
     'chained sequence with closures';
71  
-is (1, 2 ... 0, 1 ... 3).join(' '),
72  
-    '0 1 2 3',
73  
-    'chained sequence with an empty subsequence';
74 83
 
  84
+# The following is now an infinite sequence...
  85
+# is (1, 2 ... 0, 1 ... 3).join(' '),
  86
+#     '0 1 2 3',
  87
+#     'chained sequence with an empty subsequence';
  88
+
  89
+#?niecza todo
75 90
 {
76 91
     my @rt80574 := -> { 'zero', 'one' } ... *;
77 92
     #?rakudo todo 'RT 80574'
4  S12-enums/thorough.t
@@ -23,6 +23,7 @@ ok day.perl, 'enum.perl returned a value';
23 23
 
24 24
 sub test_stuff($x) {
25 25
 #?rakudo 1 skip '.does for enum value - XXX is this really valid test? asked TimToady...'
  26
+  #?niecza skip 'No candidates for dispatch to infix:<does>'
26 27
   ok $x.does(day::Tue),    "basic enum mixing worked ($x-2)";
27 28
   is $x.day, 2,            "automatically created accessor worked ($x)";
28 29
   is day::Tue, 2,          "enum provided a correct mapping ($x)";
@@ -31,7 +32,9 @@ sub test_stuff($x) {
31 32
   ok $x ~~ day::Tue,       "smartmatch worked correctly ($x-3)";
32 33
   ok $x !~~  Wed,          "smartmatch worked correctly ($x-4)";
33 34
 #?rakudo 1 skip '.does for enum value - XXX is this really valid test? asked TimToady...'
  35
+  #?niecza skip 'No candidates for dispatch to infix:<does>'
34 36
   ok $x.does(Tue),         ".does worked correctly ($x-1)";
  37
+  #?niecza skip 'No candidates for dispatch to infix:<does>'
35 38
   ok $x.does(day),         ".does worked correctly ($x-2)";
36 39
   #?rakudo skip 'EnumValue($x)'
37 40
   ok Tue($x),              "Tue() worked correctly ($x)";
@@ -45,6 +48,7 @@ sub test_stuff($x) {
45 48
   my $x = 1;
46 49
   is $x, 1, "basic sanity (1)";
47 50
   # L<S12/Enumerations/on the right side of a but or does.>
  51
+  #?niecza skip 'No candidates for dispatch to infix:<does>'
48 52
   ok $x does day(Tue), "basic enum mixing worked (1-1)";
49 53
   test_stuff($x);
50 54
 }

0 notes on commit f852369

Please sign in to comment.
Something went wrong with that request. Please try again.