Author: particle
Date: Mon Oct 1 10:33:40 2007
New Revision: 21717
Modified:
branches/pdd15oo/t/pdd15oo/sub.t
Log:
[pdd15oo]: remove deprecated commas between subpragmas, three more tests passing
Modified: branches/pdd15oo/t/pdd15oo/sub.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/sub.t (original)
+++ branches/pdd15oo/t/pdd15oo/sub.t Mon Oct 1 10:33:40 2007
@@ -923,7 +923,7 @@
# running emts 'main'
my $code = <<'CODE';
-.sub optc :immediate, :postcomp
+.sub optc :immediate :postcomp
print "initial\n"
.end
.sub _main :main
@@ -1027,7 +1027,7 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const" );
-.sub make_pi :immediate, :anon
+.sub make_pi :immediate :anon
$N0 = atan 1.0, 1.0
$N0 *= 4
$P0 = new 'Float'
@@ -1045,7 +1045,7 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const - obj" );
-.sub make_obj :immediate, :anon
+.sub make_obj :immediate :anon
.local pmc cl, o
cl = newclass "Foo"
addattribute cl, 'x'
