From 952d6638550c75290afe1556f8490a3bb64ae8ad Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 4 Mar 2012 09:19:55 +0100
Subject: [PATCH] fix and unfudge comb.t

---
 S32-str/comb.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/S32-str/comb.t b/S32-str/comb.t
index fb3bf24709..fe9e04cb9c 100644
--- a/S32-str/comb.t
+++ b/S32-str/comb.t
@@ -88,7 +88,7 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
 # RT #66340
 #?niecza skip 'Huh?'
 {
-    my $expected_reason = rx/^'No applicable candidates '/;
+    my $expected_reason = rx:s/none of these signatures match/;
 
     try { 'RT 66340'.comb( 1 ) };
     ok $! ~~ Exception, '.comb(1) dies';
@@ -101,7 +101,6 @@ 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';