Add tests for RT#93978

Raku · Jul 10, 2015 · 99a57ae · 99a57ae
1 parent e26327b
commit 99a57ae
Showing 1 changed file with 9 additions and 1 deletion.
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