fudge comb.t and symbolic-deref.t for rakudo

Author: moritz

S02-names/symbolic-deref.t

@@ -37,6 +37,7 @@ plan 22;
   is &::($b_var)(), 42, 'basic symbolic code dereferentiation works';
 }
 
+#?rakudo skip 'NYI'
 {
   $pugs::is::cool = 42;
   my $cool = "cool";
@@ -47,6 +48,7 @@ plan 22;
   eval_dies_ok('$::($pugsis)cool', '$::($foo)bar is illegal');
 }
 
+#?rakudo skip 'NYI'
 {
   my $result;
 
@@ -66,6 +68,7 @@ plan 22;
 }
 
 # Symbolic dereferentiation of globals
+#?rakudo skip 'NYI'
 {
   sub GLOBAL::a_global_sub () { 42 }
   is &::("*::a_global_sub")(), 42,
@@ -77,6 +80,7 @@ plan 22;
 }
 
 # Symbolic dereferentiation of globals *without the star*
+#?rakudo skip 'NYI'
 {
   cmp_ok $::("*IN"), &infix:<===>, $*IN,
     "symbolic dereferentiation of globals works (3)";
@@ -98,11 +102,13 @@ plan 22;
 }
 
 # Symbolic dereferentiation of type vars
+#?rakudo skip 'NYI'
 {
   cmp_ok ::Array, &infix:<===>, ::("Array"),
     "symbolic dereferentiation of type vars works (1)";
 }
 
+#?rakudo skip 'NYI'
 {
   class A::B::C {};
   my $ok = ::A::B::C === ::A::("B")::C;
@@ -112,6 +118,7 @@ plan 22;
 # Symbolic dereferentiation syntax should work with $?SPECIAL etc. too.
 # Note: I'm not 100% sure this is legal syntax. If it turns out it isn't, we'll
 # have to s/ok/dies_ok/.
+#?rakudo skip 'NYI'
 {
   try { this_will_die_and_therefore_set_dollar_exclamation_mark };
   ok $::("!"),    "symbolic dereferentiation works with special chars (1)";

S32-str/comb.t

@@ -25,6 +25,7 @@ is( "a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW]b".comb,
 
 
 #?pugs skip "todo: Str.comb"
+#?rakudo skip '.comb with limit'
 {
     my Str $hair = "Th3r3 4r3 s0m3 numb3rs 1n th1s str1ng";
     is $hair.comb(/\d+/), <3 3 4 3 0 3 3 1 1 1>, 'no limit returns all matches';
@@ -50,6 +51,7 @@ is( "a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW]b".comb,
 }
 
 #?pugs todo 'feature'
+#?rakudo skip '.comb with limit'
 is "a ab bc ad ba".comb(/\S*a\S*/, 2), <a ab>, 'matcher and limit';
 
 is "forty-two".comb().join('|'), 'f|o|r|t|y|-|t|w|o', q{Str.comb(/./)};
@@ -67,13 +69,15 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
 
 # needed: comb a filehandle
 
+#?rakudo skip 'nom'
 {
     my @l = 'a23 b c58'.comb(/\w(\d+)/);
     is @l.join('|'), 'a23|c58', 'basic comb-without-matches sanity';
     isa_ok(@l[0], Str, 'first item is a Str');
     isa_ok(@l[1], Str, 'second item is a Str');
 }
 
+#?rakudo skip 'nom'
 {
     my @l = 'a23 b c58'.comb(/\w(\d+)/, :match);
     is @l.join('|'), 'a23|c58', 'basic comb-with-matches sanity';
@@ -87,6 +91,7 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
 
 # RT #66340
 #?niecza skip 'Huh?'
+#?rakudo skip 'nom'
 {
     my $expected_reason = rx/^'No applicable candidates '/;
 
@@ -101,6 +106,7 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
     ok "$!" ~~ $expected_reason, '.comb({...}) dies for the expected reason';
 }
 
+#?rakudo skip 'nom'
 {
     is comb( /./ , "abcd"), <a b c d>, 'Subroutine form default limit';
     is comb(/./ , "abcd" , 2 ), <a b>, 'Subroutine form with supplied limit';