Permalink
Browse files

pugs fudge

  • Loading branch information...
1 parent 55c49fa commit 99f26b60ccc02449abef272e63b592e8b1e1f1fc @coke coke committed Apr 7, 2012
Showing with 12 additions and 1 deletion.
  1. +3 −0 S02-types/autovivification.t
  2. +9 −1 S02-types/lists.t
@@ -8,11 +8,13 @@ plan 10;
{
my %a;
my $b = %a<b><c>;
+ #?pugs todo
is %a.keys.elems, 0, "fetching doesn't autovivify.";
ok !defined($b), 'and the return value is not defined';
}
#?rakudo skip 'Undef to integer'
+#?pugs skip 'so'
{
my %a;
my $b = so %a<b><c>:exists;
@@ -21,6 +23,7 @@ plan 10;
}
# L<S09/Autovivification/But these bindings do autovivify:>
+#?pugs todo
{
my %a;
bar(%a<b><c>);
View
@@ -1,5 +1,6 @@
use v6;
+#?pugs emit #
use MONKEY_TYPING;
use Test;
@@ -57,7 +58,8 @@ plan 28;
{
my $foo = 42;
-
+
+ #?pugs todo
lives_ok { ($foo, *) = (23, 24) },
"using lists with embedded Whatevers as lvalues works (1)";
ok $foo == 23,
@@ -70,6 +72,7 @@ plan 28;
my $bar = 43;
try { ($foo, 42, $bar, 19)[0, 2] = (23, 24) };
+ #?pugs todo
ok $foo == 23 && $bar == 24,
"using list slices as lvalues works (1)";
@@ -141,18 +144,22 @@ plan 28;
dies_ok { <1 2 3>.rt62836 },
'call to user-declared sub in Parcel:: class dies';
try { eval '<1 2 3>.rt62836' };
+ #?pugs 3 todo
ok "$!" ~~ /rt62836/, 'error message contains name of sub';
#?niecza todo 'error message says "not found"'
ok "$!" ~~ /not \s+ found/, 'error message says "not found"';
diag $!;
ok "$!" ~~ /Seq|Parcel/, 'error message contains name of class';
+ #?pugs emit #
augment class Parcel { method rt62836_x { 62836 } };
+ #?pugs skip "augment"
is <1 2 3>.rt62836_x, 62836, 'call user-declared method in Parcel:: class';
}
# RT #66304
#?niecza skip 'Undeclared name: "Seq"'
+#?pugs skip 'Seq'
{
my $rt66304 = (1, 2, 4);
#?rakudo todo 'nom regression'
@@ -165,6 +172,7 @@ plan 28;
# nom regression bug
#?niecza skip 'Excess arguments to CORE List.new'
+#?pugs skip 'Must only use named arguments to new() constructor'
{
my $x = List.new('bacon');
my $y = $x.Str;

0 comments on commit 99f26b6

Please sign in to comment.