Author: particle
Date: Mon May 14 14:22:13 2007
New Revision: 18539
Modified:
trunk/t/pmc/super.t
Log:
[pmc]: unit tests for Super PMC
~ 'find_method' not tested yet
Modified: trunk/t/pmc/super.t
==============================================================================
--- trunk/t/pmc/super.t (original)
+++ trunk/t/pmc/super.t Mon May 14 14:22:13 2007
@@ -16,24 +16,88 @@
=cut
+
+.const int TESTS = 10
+
+
.sub main :main
# load this library
load_bytecode 'library/Test/More.pir'
# get the testing functions
- .local pmc exports, curr_namespace, test_namespace
- curr_namespace = get_namespace
+ .local pmc exporter, test_namespace
test_namespace = get_namespace [ "Test::More" ]
- exports = split " ", "plan diag ok is is_deeply like isa_ok"
+ exporter = new 'Exporter'
+ exporter.'source'(test_namespace)
+ exporter.'import'('plan diag ok is like skip isa_ok' :named('globals'))
- test_namespace."export_to"(curr_namespace, exports)
+ plan(TESTS)
+
+ 'new/isa'()
+ 'set_pmc/get_pmc'()
+.end
- plan(1)
- new P0, .Super
- ok(1, 'Instantiated .Super')
+# 6
+.sub 'new/isa'
+ .local pmc super, obj
+ super = new 'Super'
+ ok(1, 'init "Super"')
+ isa_ok(super, 'Super')
+
+
+ obj = new 'Integer' # no parent
+
+ push_eh eh__obj_has_no_parent
+ $P0 = new 'Super', obj
+ clear_eh
+ ok(0, 'init_pmc "Super" with object that has no parent should fail')
+ skip(1, 'cannot test isa: no object')
+ goto obj_has_no_parent__done
+ eh__obj_has_no_parent:
+ ok(1, 'init_pmc "Super" with object that has no parent fails')
+ isa_ok(super, 'Super')
+ obj_has_no_parent__done:
+
+
+ obj = new 'ResizablePMCArray' # parent is FixedPMCArray
+
+ push_eh eh__obj_has_parent
+ super = new 'Super', obj
+ clear_eh
+ ok(1, 'init_pmc "Super" with object that has parent succeeds')
+ isa_ok(super, 'Super')
+ goto obj_has_parent__done
+ eh__obj_has_parent:
+ ok(0, 'init_pmc "Super" with object that has parent should succeed')
+ skip(1, 'cannot test isa: no object')
+ obj_has_parent__done:
.end
+
+# 4
+.sub 'set_pmc/get_pmc'
+ .local pmc super, set_obj, get_obj, nul
+ super = new 'Super'
+ set_obj = new 'ResizablePMCArray'
+ nul = new 'Null'
+
+ super = set_obj
+ ok(1, 'set_pmc')
+ get_obj = super
+ ok(1, 'get_pmc')
+ is(get_obj, set_obj, 'get_pmc returns what set_pmc set')
+
+ super = nul
+ get_obj = super
+ $I0 = isnull get_obj
+ ok($I0, 'set_pmc with Null sets null value')
+.end
+
+
+## TODO find_method
+
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
