[svn:parrot] r44957 - branches/pcc_hackathon_6Mar10/t/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Tue Mar 16 08:23:24 UTC 2010


Author: bacek
Date: Tue Mar 16 08:23:23 2010
New Revision: 44957
URL: https://trac.parrot.org/parrot/changeset/44957

Log:
Update test to call get_results after invoke.

Modified:
   branches/pcc_hackathon_6Mar10/t/pmc/objects.t

Modified: branches/pcc_hackathon_6Mar10/t/pmc/objects.t
==============================================================================
--- branches/pcc_hackathon_6Mar10/t/pmc/objects.t	Tue Mar 16 08:14:16 2010	(r44956)
+++ branches/pcc_hackathon_6Mar10/t/pmc/objects.t	Tue Mar 16 08:23:23 2010	(r44957)
@@ -1713,57 +1713,52 @@
     new $P5, ['String']        # set attribute values
     set $P5, "i"       # attribute slots have reference semantics
     set_args "0,0,0", $P5, "Foo56", "i"
-    get_results ""
     callmethodcc $P2, "set"
 
     new $P5, ['String']
     set $P5, "j"
     set_args "0,0,0", $P5, "Foo56", "j"
-    get_results ""
     callmethodcc $P2, "set"
 
     new $P5, ['String']
     set $P5, "k"
     set_args "0,0,0", $P5, "Bar56", "k"
-    get_results ""
     callmethodcc $P2, "set"
 
     new $P5, ['String']
     set $P5, "l"
     set_args "0,0,0", $P5, "Bar56", "l"
-    get_results ""
     callmethodcc $P2, "set"
 
     new $P5, ['String']
     set $P5, "m"
     set_args "0,0,0", $P5, "Bar56", "m"
-    get_results ""
     callmethodcc $P2, "set"
 
     # now retrieve attributes
     set_args "0,0", "Foo56", "i"
-    get_results "0", $P5
     callmethodcc $P2, "get"
+    get_results "0", $P5
     is( $P5, 'i', 'got attrib i from subclass through parent method' )
 
     set_args "0,0", "Foo56", "j"
-    get_results "0", $P5
     callmethodcc $P2, "get"
+    get_results "0", $P5
     is( $P5, "j", 'got attrib i from subclass through parent method' )
 
     set_args "0,0", "Bar56", "k"
-    get_results "0", $P5
     callmethodcc $P2, "get"
+    get_results "0", $P5
     is( $P5, "k", 'got attrib i from subclass through parent method' )
 
     set_args "0,0", "Bar56", "l"
-    get_results "0", $P5
     callmethodcc $P2, "get"
+    get_results "0", $P5
     is( $P5, "l", 'got attrib i from subclass through parent method' )
 
     set_args "0,0", "Bar56", "m"
-    get_results "0", $P5
     callmethodcc $P2, "get"
+    get_results "0", $P5
     is( $P5, "m", 'got attrib i from subclass through parent method' )
 .end
 


More information about the parrot-commits mailing list