[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