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

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Mar  5 23:50:06 2010
New Revision: 44668
URL: https://trac.parrot.org/parrot/changeset/44668

Log:
Add test for Emitter.

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

Added: branches/ops_pct/compilers/opsc/t/06-emitter.t
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/ops_pct/compilers/opsc/t/06-emitter.t	Fri Mar  5 23:50:06 2010	(r44668)
@@ -0,0 +1,29 @@
+#! ./parrot-nqp
+
+pir::load_bytecode("compilers/opsc/opsc.pbc");
+pir::load_bytecode("nqp-settings.pbc");
+
+plan(3);
+
+my $trans := Ops::Trans::C.new();
+
+my @files := <
+    src/ops/debug.ops
+    src/ops/sys.ops
+>;
+
+my $f := Ops::File.new(|@files);
+my $emitter := Ops::Emitter.new(
+    :ops_file($f), :trans($trans), :script('ops2c'),
+    :flags(
+        hash( dir => 'tmp/', core => 1 )
+    ),
+);
+
+ok( $emitter, "Emitter created");
+ok( $emitter<include> eq 'parrot/oplib/core_ops.h', 'Include is correct');
+say('# ' ~ $emitter<include>);
+ok( $emitter<header> ~~ /^tmp/, 'header file in tmp');
+say('# ' ~ $emitter<header>);
+
+# vim: expandtab shiftwidth=4 ft=perl6: