Basic test for QAST::CompUnit.

Raku · Jun 30, 2012 · 98c1660 · 98c1660
1 parent 8302932
commit 98c1660
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/t/qast/qast.t b/t/qast/qast.t
@@ -1,6 +1,6 @@
 use QAST;
 
-plan(59);
+plan(60);
 
 # Following a test infrastructure.
 sub compile_qast($qast) {
@@ -882,3 +882,11 @@ is_qast(
         'call with named flattened argument works');
 }
 
+is_qast(
+    QAST::CompUnit.new(
+        QAST::Block.new(
+            QAST::SVal.new( :value('La Trappe') )
+        )
+    ),
+    'La Trappe',
+    'QAST::CompUnit compiles the top level block inside of it');