[svn:parrot] r47114 - branches/gsoc_past_optimization/t/library

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Sat May 29 17:16:09 2010
New Revision: 47114
URL: https://trac.parrot.org/parrot/changeset/47114

Log:
Fix changing node type test.

Modified:
   branches/gsoc_past_optimization/t/library/pasttransformerdynamic.t

Modified: branches/gsoc_past_optimization/t/library/pasttransformerdynamic.t
==============================================================================
--- branches/gsoc_past_optimization/t/library/pasttransformerdynamic.t	Sat May 29 17:11:42 2010	(r47113)
+++ branches/gsoc_past_optimization/t/library/pasttransformerdynamic.t	Sat May 29 17:16:09 2010	(r47114)
@@ -6,8 +6,9 @@
 pir::load_bytecode('PAST/Transformer/Dynamic.pbc');
 pir::load_bytecode('runtime/parrot/include/pastcompare.pbc');
 
-plan(1);
+plan(2);
 test_change_node_attributes();
+test_change_node_types();
 
 sub incVals ($walker, $node) {
     my $v := $node.'value'();
@@ -54,8 +55,8 @@
 			PAST::Val.new(:value(-7)),
 			PAST::Val.new(:value(5)),
 			PAST::Val.new(:value(-32)));
-    my $transformer := PAST::Transformer::Dynamic.new(:val(negate));
-
+    my $transformer := PAST::Transformer::Dynamic.new();
+    $transformer.'val'(negate);
     my $result := $transformer.'walk'($past);
 
     my $target :=