[svn:parrot] r38677 - branches/pmc_pct/compilers/pmcc/t
bacek at svn.parrot.org
bacek at svn.parrot.org
Sun May 10 10:12:04 UTC 2009
Author: bacek
Date: Sun May 10 10:12:04 2009
New Revision: 38677
URL: https://trac.parrot.org/parrot/changeset/38677
Log:
Add (failing) test for default.pmc handling
Added:
branches/pmc_pct/compilers/pmcc/t/07-default.t
Added: branches/pmc_pct/compilers/pmcc/t/07-default.t
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/pmc_pct/compilers/pmcc/t/07-default.t Sun May 10 10:12:04 2009 (r38677)
@@ -0,0 +1,31 @@
+#! ../../parrot
+# Check handling of default.pmc
+
+.include 't/common.pir'
+
+.sub 'main' :main
+ .include 'test_more.pir'
+ load_bytecode 'pmcc.pbc'
+
+ plan(1)
+
+ # Parse "default" pmc.
+ .local pmc emitter, capture
+ .local string generated
+ $S0 = _slurp('t/data/default.pmc')
+ (emitter, capture) = get_emitter_and_capture('t/data/default.pmc', $S0, 'past')
+ generated = emitter.'generate_c_file'(capture)
+
+ say generated
+
+ like($S0, "'Parrot_default_get_vtable'", "Parrot_default_get_vtable generated")
+.end
+
+# Don't forget to update plan!
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
More information about the parrot-commits
mailing list