[svn:parrot] r39930 - branches/ops_pct/compilers/opsc/t
bacek at svn.parrot.org
bacek at svn.parrot.org
Tue Jul 7 13:52:07 UTC 2009
Author: bacek
Date: Tue Jul 7 13:52:05 2009
New Revision: 39930
URL: https://trac.parrot.org/parrot/changeset/39930
Log:
[t] Add stub for created PAST testing.
Added:
branches/ops_pct/compilers/opsc/t/03-past.t
Added: branches/ops_pct/compilers/opsc/t/03-past.t
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/ops_pct/compilers/opsc/t/03-past.t Tue Jul 7 13:52:05 2009 (r39930)
@@ -0,0 +1,34 @@
+#! ../../parrot
+
+# "Comprehensive" test for creating PAST for op.
+# Parse single op and check various aspects of created PAST.
+
+.sub 'main'
+ .include 'test_more.pir'
+ load_bytecode 'opsc.pbc'
+
+ plan(1)
+
+ .local pmc compiler, past
+ .local string buf
+ buf = <<"END"
+VERSION = PARROT_VERSION;
+inline op foo(out INT, in PMC, inconst NUM) :flow :deprecated {
+ foo # We don't handle anything in C<body> during parse/past.
+}
+END
+
+ compiler = compreg 'Ops'
+ past = compiler.'parse'(buf, 'target'=>'past')
+ ok(1, "PAST::Node created")
+
+.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