[svn:parrot] r39910 - branches/ops_pct/compilers/opsc/t

bacek at svn.parrot.org bacek at svn.parrot.org
Tue Jul 7 09:54:09 UTC 2009


Author: bacek
Date: Tue Jul  7 09:54:08 2009
New Revision: 39910
URL: https://trac.parrot.org/parrot/changeset/39910

Log:
[t] Initial failing test for opsc

Added:
   branches/ops_pct/compilers/opsc/t/01-parse.t

Added: branches/ops_pct/compilers/opsc/t/01-parse.t
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/ops_pct/compilers/opsc/t/01-parse.t	Tue Jul  7 09:54:08 2009	(r39910)
@@ -0,0 +1,37 @@
+#! ../../parrot
+
+.include 't/common.pir'
+
+.sub 'main' :main
+
+    .include 'test_more.pir'
+    load_bytecode 'opsc.pbc'
+
+    plan(1)
+
+    test_parse_basic_op()
+.end
+
+.sub "test_parse_basic_op"
+    .local string buf
+    .local pmc res
+
+    buf = <<"END"
+op noop() {
+}
+END
+    
+    "_parse_buffer"(buf)
+    ok(1, "Simple noop parsed")
+
+
+.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