Author: jisom
Date: Sat Mar 24 01:18:28 2007
New Revision: 17701
Modified:
trunk/runtime/parrot/include/hllmacros.pir
trunk/t/compilers/imcc/syn/pod.t
Log:
Add back =cut to hllmacros.pir, deleted when the PIR coda was added
Add a todo test to t/compilers/imcc/syn/pod.t about the problem until it's
dealt with.
Modified: trunk/runtime/parrot/include/hllmacros.pir
==============================================================================
--- trunk/runtime/parrot/include/hllmacros.pir (original)
+++ trunk/runtime/parrot/include/hllmacros.pir Sat Mar 24 01:18:28 2007
@@ -106,6 +106,17 @@
if .conditional goto .$beginwhile
.endm
+=item C<.Loop(code)>
+
+Runs the code in C<code> forever.
+
+=cut
+
+.macro Loop(code)
+.local $beginloop:
+ .code
+ goto .$beginloop
+.endm
=item C<.For(start, conditional, continue, code)>
@@ -231,6 +242,8 @@
Will not run as you would expect.
+=cut
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: trunk/t/compilers/imcc/syn/pod.t
==============================================================================
--- trunk/t/compilers/imcc/syn/pod.t (original)
+++ trunk/t/compilers/imcc/syn/pod.t Sat Mar 24 01:18:28 2007
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Config;
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 4;
# POD
@@ -18,7 +18,6 @@
.end
=head1 Some POD
This should be ignored, incl. digit 1
-=cut
CODE
pass
OUT
@@ -53,6 +52,33 @@
ok
OUT
+open FOO, ">", "include.tempfile";
+print FOO <<'ENDF';
+
+=head1 Foobar
+
+we don't cut out!!!
+
+ENDF
+close FOO;
+
+SKIP: {
+ skip("Closing out of pod from included files", 1);
+pir_output_is( <<'CODE', <<'OUT', "simple pod" );
+.include "include.tempfile"
+.sub test :main
+ print "pass\n"
+ end
+.end
+CODE
+pass
+OUT
+}
+
+unlink("macro.tempfile");
+
+
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
