Author: leo
Date: Thu Sep 22 12:04:30 2005
New Revision: 9232
Modified:
branches/leo-ctx5/t/op/calling.t
Log:
test for failing tailcallmethod to NCI method
Modified: branches/leo-ctx5/t/op/calling.t
==============================================================================
--- branches/leo-ctx5/t/op/calling.t (original)
+++ branches/leo-ctx5/t/op/calling.t Thu Sep 22 12:04:30 2005
@@ -16,7 +16,7 @@ Tests Parrot calling conventions.
=cut
-use Parrot::Test tests => 36;
+use Parrot::Test tests => 37;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "set_args - parsing");
@@ -1019,3 +1019,26 @@ ok 1
ok 2
OUTPUT
+# tailcall to NCI doesn't work
+TODO:
+{ local $TODO = "tailcall to NCI doesn't work";
+pir_output_is(<<'CODE', <<'OUTPUT', "taicall to NCI");
+.sub main @MAIN
+ .local pmc s
+ s = new .String
+ s = "OK 1\n"
+ $S0 = s."lower"()
+ print $S0
+ s = "OK 2\n"
+ $S1 = foo(s)
+ print $S1
+.end
+.sub foo
+ .param pmc s
+ .return s."lower"()
+.end
+CODE
+ok 1
+ok 2
+OUTPUT
+}
