Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

pugs fudge

  • Loading branch information...
commit 16dd063843ed529d51ac3fdbd11b1116d03a94a9 1 parent f200e0a
Will Coleda authored
3  S01-perl-5-integration/basic.t
@@ -62,6 +62,7 @@ my @a = <b c d>;
62 62
     is(@o[2], "d", $test);
63 63
 }
64 64
 
  65
+#?pugs skip 'todo'
65 66
 {
66 67
     my $test = q{ (\@a) received as arrayref };
67 68
     my $o = $p5_dumper(\@a);
@@ -69,6 +70,7 @@ my @a = <b c d>;
69 70
     is($o[2], "d", $test);
70 71
 }
71 72
 
  73
+#?pugs skip 'todo'
72 74
 {
73 75
     my $test = q{ (VAR @a) received as arrayref };
74 76
     my $o = $p5_dumper(VAR @a);
@@ -90,6 +92,7 @@ my $s = 'str';
90 92
    is($$o, $s, $test);
91 93
 }
92 94
 
  95
+#?pugs skip 'todo'
93 96
 {
94 97
    my $test = q{ (VAR $s) received as scalarref };
95 98
    my $o = $p5_dumper(VAR $s);
1  S02-literals/misc-interpolation.t
@@ -50,7 +50,6 @@ is("&func_w_args("foo","bar"))", '[foo][bar])', '"&func_w_args(...)" should inte
50 50
 # L<S02/Method calls/"In order to interpolate the result of a method call">
51 51
 is("$world.chars()", '5', 'method calls with parens should interpolate');
52 52
 is("$world.chars", 'World.chars', 'method calls without parens should not interpolate');
53  
-#?pugs skip '.flip'
54 53
 is("$world.flip.chars()", '5', 'cascade of argumentless methods, last ending in paren');
55 54
 is("$world.substr(0,1)", 'W', 'method calls with parens and args should interpolate');
56 55
 
8  S02-names-vars/perl.t
@@ -2,7 +2,7 @@ use v6;
2 2
 use Test;
3 3
 # L<S02/Names and Variables/To get a Perlish representation of any object>
4 4
 
5  
-#?pugs emit plan 87;
  5
+#?pugs emit plan 83;
6 6
 
7 7
 my @tests = (
8 8
     # Basic scalar values
@@ -25,6 +25,7 @@ my @tests = (
25 25
     ?1, ?0,
26 26
     #?rakudo emit # Mu eq Mu is an error now
27 27
     #?niecza emit # Dunno what's wrong with this one
  28
+    #?pugs emit #
28 29
     Mu,
29 30
     #?rakudo emit # parse error
30 31
     #?niecza emit # Autoloading NYI
@@ -32,7 +33,10 @@ my @tests = (
32 33
     rx:P5/foo/, rx:P5//, rx:P5/^.*$/,
33 34
 
34 35
     # References to scalars
35  
-    \42, \Inf, \-Inf, \NaN, \"string", \"", \?1, \?0, \Mu,
  36
+    \42, \Inf, \-Inf, \NaN, \"string", \"", \?1, \?0, 
  37
+
  38
+    #?pugs emit #
  39
+    \Mu,
36 40
 
37 41
     #?pugs emit #
38 42
     (a => 1),
2  S02-types/bool.t
@@ -48,7 +48,7 @@ isa_ok(~Bool::False, Str);
48 48
 #?pugs 2 todo "stringification"
49 49
 is(~Bool::True, 'True', 'Bool stringification (True)');
50 50
 is(~Bool::False, 'False', 'Bool stringification (False)');
51  
-#?pugs 2 skip '.Str'
  51
+#?pugs 2 todo '.Str'
52 52
 is Bool::True.Str, 'True', 'True.Str';
53 53
 is Bool::False.Str, 'False', 'False.Str';
54 54
 #?pugs 2 todo '.gist'
1  S03-operators/context-forcers.t
@@ -69,7 +69,6 @@ sub iis(Mu $a, Mu $b, $descr) {
69 69
   is ~"3e5",   "3e5", "~ context forcer works (10)";
70 70
 }
71 71
 
72  
-#?pugs skip 'Str'
73 72
 ok 4.Str ~~ Str, 'Int.Str returns a Str';
74 73
 
75 74
 sub eval_elsewhere($code){ eval($code) }
1  S03-operators/inplace.t
@@ -83,7 +83,6 @@ is ~@b, "a b d e z", "inplace sort";
83 83
 }
84 84
 
85 85
 # RT #70676
86  
-#?pugs skip 'Int'
87 86
 {
88 87
    my $x = 5.5;
89 88
    $x .= Int;
9  S03-operators/precedence.t
@@ -53,7 +53,6 @@ is(2 - 2 / 2, 1 / 1, "/ binds tighter than binary -");
53 53
 # additive
54 54
 
55 55
 is(1 ~ 2 * 3, 16, "~ binds looser than *");
56  
-#?pugs skip 'autothread'
57 56
 ok(?((1 ~ 2 & 12) == 12), "but tighter than &");
58 57
 #?pugs skip 'autothread'
59 58
 ok(?((2 + 2 | 4 - 1) == 4), "and + binds tighter than |");
@@ -80,13 +79,13 @@ ok(?(!(1 & 2 ^ 4) != 3), "blah blah blah");
80 79
 # junctive or
81 80
 
82 81
 #?rakudo todo 'non-associativeness of infix:<^> and |'
83  
-#?pugs skip 'autothread, Mu'
  82
+#?pugs todo 'autothread, Mu'
84 83
 { # test that | and ^ are on the same level but parsefail
85 84
     eval_dies_ok 'my Mu $a = (1 | 2 ^ 3)', '| and ^ may not associate';
86 85
     eval_dies_ok 'my Mu $a = (1 ^ 2 | 3)', '^ and | may not associate';
87 86
 };
88 87
 
89  
-#?pugs skip 'autothread, Mu'
  88
+#?pugs todo 'autothread, Mu'
90 89
 {
91 90
     my Mu $a = (abs -1 ^ -1); # read as abs(-1 ^ -1) -> (1^1)
92 91
     ok(!($a == 1), 'junctive or binds more tightly then abs (1)');
@@ -167,7 +166,7 @@ is(((not 1,42)[1]), 42, "not is tighter than comma");
167 166
 
168 167
 # list prefix
169 168
 
170  
-#?pugs skip 'authothread'
  169
+#?pugs todo 'authothread'
171 170
 {
172 171
     my $c = any 1, 2 Z 3, 4;
173 172
     ok($c == 3, "any is less tight than comma and Z");
@@ -202,7 +201,7 @@ is(@c, [1,2,3], "@ = binds looser than ,");
202 201
 # http://irclog.perlgeek.de/perl6/2009-07-14#i_1316200
203 202
 #
204 203
 # so uc(False) stringifies False to 'FALSE', and uc('0') is false. Phew.
205  
-#?pugs skip 'Bool.Str'
  204
+#?pugs todo 'Bool.Str'
206 205
 is (uc "a" eq "A"), uc(False.Str), "uc has the correct precedence in comparison to eq";
207 206
 
208 207
 # L<S03/Named unary precedence/my $i = int $x;   # ILLEGAL>
5  S03-operators/short-circuit.t
@@ -114,7 +114,7 @@ sub accumtest($expect, $op) {
114 114
 }
115 115
 
116 116
 #?niecza skip "^^ NYI"
117  
-#?pugs skip '^^ short circuit'
  117
+#?pugs todo '^^ short circuit'
118 118
 {
119 119
     my $x;      # should be Mu
120 120
     my $y = 2;
@@ -132,7 +132,7 @@ sub accumtest($expect, $op) {
132 132
 }
133 133
 
134 134
 #?niecza skip "xor NYI"
135  
-#?pugs skip "xor shortcircuit"
  135
+#?pugs todo "xor shortcircuit"
136 136
 {
137 137
     my $x;      # should be Mu
138 138
     my $y = 2;
@@ -204,7 +204,6 @@ sub accumtest($expect, $op) {
204 204
     #?pugs 2 skip 'Range'
205 205
     isa_ok 0 ^^ ^7, Range, '^^ can return a Range';
206 206
     isa_ok ^7 ^^ 0, Range, '^^ can return a Range';
207  
-    #?pugs 3 skip 'Mu'
208 207
     isa_ok 7.5i ^^ Mu, Complex, '^^ can return a Complex';
209 208
     isa_ok Inf ^^ Mu, Num, '^^ can return a Num';
210 209
     isa_ok 'Inf' ^^ Mu, Str, '^^ can return a Str';
2  S03-smartmatch/any-num.t
@@ -20,7 +20,7 @@ plan 18;
20 20
     # yes, this warns, but it should still be true
21 21
     #?rakudo 2 skip "Mu ~~ Num doesn't work yet"
22 22
     #?niecza skip 'Nominal type check failed for #1'
23  
-    #?pugs skip 'Mu'
  23
+    #?pugs todo 'Mu'
24 24
     ok  (Mu ~~ 0),              'Mu ~~ 0';
25 25
     #?niecza skip 'Nominal type check failed for #1'
26 26
     ok !(Mu ~~ 2.3),            'Mu ~~ $other_number';
1  S04-statement-modifiers/given.t
@@ -20,7 +20,6 @@ plan 5;
20 20
     is($a, 6, "post given");
21 21
 }
22 22
 
23  
-#?pugs skip "Can't modify constant item"
24 23
 {
25 24
     my $a = '';
26 25
     $a = $_ given 'a';
2  S04-statements/given.t
@@ -297,7 +297,7 @@ eval_lives_ok 'given 3 { sub a() { } }', 'can define a sub inside a given';
297 297
 #?pugs todo
298 298
 eval_lives_ok 'sub a() { } given 3',     'can define a sub inside a statement-modifying given';
299 299
 
300  
-#?pugs skip 'ok variant?'
  300
+#?pugs todo 'ok variant?'
301 301
 {
302 302
     my $capture-is-correct = False;
303 303
     given "Hello" { 
1  S04-statements/unless.t
@@ -38,7 +38,6 @@ my $x = 'test';
38 38
     ok($found, 'unless 1 is not executed');
39 39
 }
40 40
 
41  
-#?pugs skip 'Mu'
42 41
 {
43 42
     my $found = 0;
44 43
     unless Mu { $found = 1; }
3  S05-capture/match-object.t
@@ -12,7 +12,7 @@ is $/.WHAT.gist, Match.gist,    'got right type';
12 12
 #?pugs todo
13 13
 ok $/.Bool,                     '.Bool';
14 14
 ok $/.defined,                  '.defined';
15  
-#?pugs skip 'Match.Str'
  15
+#?pugs todo 'Match.Str'
16 16
 is $/.Str,         '12',        '.Str';
17 17
 #?pugs todo
18 18
 is $/.from,           2,        '.from';
@@ -37,7 +37,6 @@ is $/.kv.elems,       0,        '.kv (empty)';
37 37
 
38 38
 nok 'abde' ~~ /\d/,             'no match';
39 39
 nok $/.Bool,                    'failed match is False';
40  
-#?pugs skip 'Match.Str'
41 40
 is  $/.Str,          '',        'false match stringifies to empty string';
42 41
 
43 42
 my $c;
1  integration/real-strings.t
@@ -39,7 +39,6 @@ dies_ok { for "a b c".split(/\s/) -> $foo { $foo = $foo; } }, 'variables returne
39 39
 #?pugs todo 'Str'
40 40
 ok 1.Str ~~ / ^ 1 $ /, 'RT 66366; 1.Str is a "good" Str';
41 41
 
42  
-#?pugs 2 skip 'flip'
43 42
 is "helo".flip().trans("aeiou" => "AEIOU"), 'OlEh', '.flip.trans (RT 66300)';
44 43
 is "helo".flip.trans(("aeiou" => "AEIOU")), 'OlEh', '.flip.trans (RT 66300)';
45 44
 is "helo".lc.trans(("aeiou" => "AEIOU")),   'hElO', '.flip.trans (RT 66300)';

0 notes on commit 16dd063

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