Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t] Add a few more hll interop tests

  • Loading branch information...
commit 865c8eb6afd923452547c300496d038fe4d37776 1 parent 607dead
@leto leto authored
Showing with 16 additions and 2 deletions.
  1. +16 −2 t/pir/interop.t
View
18 t/pir/interop.t
@@ -19,10 +19,24 @@ Tests for HLL interoperability from PIR.
.sub main :main
.include 'test_more.pir'
- plan(1)
+ plan(3)
+
load_language 'parrot'
- ok(1)
+ ok(1, 'loaded parrot language')
+ .local pmc c
+ c = compreg 'parrot'
+ $P0 = get_class [ 'Parrot'; 'Compiler' ]
+ isa_ok(c, $P0)
+
+ c.'export'('foo bar')
+ ok(1, 'can call export on parrot compiler')
+
+.end
+
+.sub foo
+.end
+.sub bar
.end
# Local Variables:
Please sign in to comment.
Something went wrong with that request. Please try again.