Author: jonathan
Date: Tue Jan 20 10:11:22 2009
New Revision: 35826
Modified:
trunk/t/oo/composition.t
Log:
[t] Tests for composition with multis.
Modified: trunk/t/oo/composition.t
==============================================================================
--- trunk/t/oo/composition.t (original)
+++ trunk/t/oo/composition.t Tue Jan 20 10:11:22 2009
@@ -19,7 +19,7 @@
.sub main :main
.include 'except_types.pasm'
.include 'test_more.pir'
- plan(41)
+ plan(45)
role_with_no_methods()
role_with_one_method_no_methods_in_class()
@@ -31,6 +31,7 @@
conflict_resolution_by_resolve()
role_that_does_a_role()
conflict_from_indirect_role()
+ multi_composition()
.end
.sub badger :method
@@ -337,6 +338,31 @@
nok($I0, 'second role conflicts with method from indirect role')
.end
+.sub 'multi_composition'
+ .local pmc R, C
+ R = new 'Role'
+ $P0 = get_global 'mctest_2'
+ R.'add_method'("mctest", $P0)
+ C = new 'Class'
+ $P0 = get_global 'mctest_1'
+ C.'add_method'("mctest", $P0)
+ C.'add_role'(R)
+ ok(1, 'a multi in the class prevents a role conflict')
+
+ $P0 = inspect C, 'methods'
+ $I0 = elements $P0
+ is($I0, 1, 'class had still one method after composition')
+ $P0 = $P0['mctest']
+ $I0 = isa $P0, 'MultiSub'
+ is($I0, 1, 'method was a multi sub')
+ $I0 = elements $P0
+ is($I0, 2, 'multi holds both candidates')
+.end
+.sub 'mctest_1' :multi()
+.end
+.sub 'mctest_2'
+.end
+
# Local Variables:
# mode: pir
# fill-column: 100
