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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 11:47:08 2010
New Revision: 44689
URL: https://trac.parrot.org/parrot/changeset/44689

Log:
Add tests for emitting C source.

Modified:
   branches/ops_pct/compilers/opsc/t/06-emitter.t

Modified: branches/ops_pct/compilers/opsc/t/06-emitter.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/06-emitter.t	Sat Mar  6 11:46:44 2010	(r44688)
+++ branches/ops_pct/compilers/opsc/t/06-emitter.t	Sat Mar  6 11:47:08 2010	(r44689)
@@ -3,12 +3,12 @@
 pir::load_bytecode("compilers/opsc/opsc.pbc");
 pir::load_bytecode("nqp-settings.pbc");
 
-plan(7);
+plan(10);
 
 my $trans := Ops::Trans::C.new();
 
 my @files := <
-    src/ops/debug.ops
+    src/ops/io.ops
     src/ops/sys.ops
 >;
 
@@ -50,6 +50,10 @@
 $fh.close();
 my $source := $fh.readall();
 
-say($source);
+ok($source ~~ /DO \s NOT \s EDIT \s THIS \s FILE/, 'Preamble generated');
+ok($source ~~ /Parrot_pcc_get_constants/, 'defines from Trans::C generated');
+ok($source ~~ /io_private.h/, 'Preamble from io.ops preserved');
+
+#say($source);
 
 # vim: expandtab shiftwidth=4 ft=perl6: