[t/spec] tests for RT #69362, signatures of WhateverCode objects

git-svn-id: http://svn.pugscode.org/pugs@31412 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Jun 22, 2010 · d92bacd · d92bacd
1 parent 3aa667a
commit d92bacd
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/S02-builtin_data_types/whatever.t b/S02-builtin_data_types/whatever.t
@@ -176,6 +176,15 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
     is $x('dog'), 'GOD', 'we call both methods';
 }
 
+# RT #69362
+{
+    my $x = *.uc;
+    my $y = * + 3;
+    ok $x.signature, 'Whatever-curried method calls have a signature';
+    ok $y.signature, 'Whatever-curried operators have a signature';
+
+}
+
 done_testing;
 
 # vim: ft=perl6