[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