Merge branch 'master' of https://github.com/perl6/roast

Raku · Jul 10, 2015 · 29a3ff9 · 29a3ff9
2 parents 5e2ad04 + 99a57ae
commit 29a3ff9
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 2 deletions.
diff --git a/S03-operators/misc.t b/S03-operators/misc.t
@@ -7,7 +7,7 @@ use Test;
 Tests for Synopsis 3
 =end kwid
 
-plan 36;
+plan 38;
 
 my $str1 = "foo";
 my $str2 = "bar";
@@ -125,4 +125,12 @@ is (2 Z 3), @z, 'joining of single items';
         "~~!~~ fails to parse (RT #76436)";
 }
 
+# comparison complains if either of its arguments is undefined - RT #93978
+{
+    throws-like {Int < 0}, X::AdHoc;
+    #?rakudo todo "RT #93978"
+    throws-like {"cat" gt Str}, X::AdHoc;
+}
+
+
 # vim: ft=perl6
diff --git a/S06-signature/type-capture.t b/S06-signature/type-capture.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 9;
+plan 10;
 
 # TODO: move to S02?
 # L<S02/Generic types/>
@@ -52,4 +52,14 @@ eval-lives-ok q':(::T $x)', "No error on type capture";
     foo(1)
 }
 
+# RT #114724
+{
+    sub f (::T $g) {
+        for ($g) -> T $h {
+            return $h ~ ":" ~ T.perl
+        }
+    };
+    is f("blah"), "blah:Str", 'Type variable matches in signature to "for" loop';
+}
+
 # vim: ft=perl6