Author: allison
Date: Thu Oct 4 15:30:26 2007
New Revision: 21851
Removed:
branches/pdd15oo/t/pdd15oo/tail.t
Modified:
branches/pdd15oo/t/compilers/imcc/syn/tail.t
Log:
[pdd15oo] Merging passing IMCC tail test back into core tests.
Modified: branches/pdd15oo/t/compilers/imcc/syn/tail.t
==============================================================================
--- branches/pdd15oo/t/compilers/imcc/syn/tail.t (original)
+++ branches/pdd15oo/t/compilers/imcc/syn/tail.t Thu Oct 4 15:30:26 2007
@@ -1,5 +1,5 @@
#!perl
-# Copyright (C) 2005, The Perl Foundation.
+# Copyright (C) 2005-2007, The Perl Foundation.
# $Id$
use strict;
@@ -327,9 +327,9 @@
o = new "Foo"
n = new 'Integer'
n = 2000 # beyond recursion limit of 1000
- setattribute o, "Foo\0n", n
+ setattribute o, [ "Foo" ], "n", n
o."go"()
- n = getattribute o, "Foo\0n"
+ n = getattribute o, [ "Foo" ], "n"
print n
print "\n"
.end
@@ -337,7 +337,7 @@
.namespace ["Foo"]
.sub go :method
.local pmc n
- n = getattribute self, "Foo\0n"
+ n = getattribute self, [ "Foo" ], "n"
dec n
unless n goto done
.return self."go"()
