Author: leo
Date: Sun Mar 12 06:58:47 2006
New Revision: 11876
Modified:
trunk/languages/pugs/t/pmc/code.t
Log:
pugs: test closure mapping to PugsCode
Modified: trunk/languages/pugs/t/pmc/code.t
==============================================================================
--- trunk/languages/pugs/t/pmc/code.t (original)
+++ trunk/languages/pugs/t/pmc/code.t Sun Mar 12 06:58:47 2006
@@ -3,3 +3,28 @@
# $Id: /mirror/trunk/languages/lua/t/pmc/boolean.t 11586
2006-02-16T17:44:54.559622Z fperrad $
use t::pmc;
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "a sub ought to be PugsCode");
+.HLL "Perl6", "pugs_group"
+
+.sub main :main
+ .include "interpinfo.pasm"
+ $P0 = interpinfo .INTERPINFO_CURRENT_SUB
+ $S0 = typeof $P0
+ print $S0
+ print "\n"
+ .const .Sub f = "foo"
+ $S0 = typeof f
+ print $S0
+ print "\n"
+ foo()
+.end
+
+.sub foo :outer('main')
+ print "ok\n"
+.end
+CODE
+Sub
+PugsCode
+ok
+OUTPUT
