Add test for INIT statements.

perl6 · Oct 29, 2009 · 773419c · 773419c
1 parent 501baec
commit 773419c
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/t/nqp/33-init.t b/t/nqp/33-init.t
@@ -0,0 +1,23 @@
+#! nqp
+
+# Test INIT blocks
+
+INIT plan(4);
+
+our $foo;
+
+ok($foo == 2, 'after second INIT block');
+
+INIT { 
+    our $foo;
+    ok($foo == 0, 'first INIT');
+    $foo := 1;
+}
+
+$foo := 3;
+
+INIT ok($foo++, 'after first INIT but before mainline');
+
+ok($foo == 3, 'After everything else');
+
+