[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