[svn:parrot] r48874 - trunk/t/op

[coke at svn.parrot.org]

Author: coke
Date: Thu Sep  9 00:54:54 2010
New Revision: 48874
URL: https://trac.parrot.org/parrot/changeset/48874

Log:
avoid use of deprecated method to test this feature

Modified:
   trunk/t/op/calling.t

Modified: trunk/t/op/calling.t
==============================================================================
--- trunk/t/op/calling.t	Wed Sep  8 23:43:44 2010	(r48873)
+++ trunk/t/op/calling.t	Thu Sep  9 00:54:54 2010	(r48874)
@@ -1247,25 +1247,23 @@
 /too few positional arguments: 3 passed, 4 \(or more\) expected/
 OUTPUT
 
-pir_output_is( <<'CODE', <<'OUTPUT', "tailcall to NCI" );
+pir_output_is( <<'CODE', <<'OUTPUT', "faux tailcall 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
+    $I0 = s."is_integer"(22)
+    say $I0
+    $I1 = foo(s)
+    say $I1
 .end
 .sub foo
     .param pmc s
-    $S0 = s."lower"()
-    .return ($S0)
+    $I0 = s."is_integer"(22)
+    .return ($I0)
 .end
 CODE
-ok 1
-ok 2
+1
+1
 OUTPUT
 
 pir_output_is( <<'CODE', <<'OUTPUT', "tailcall to NCI - 2" );