Index: examples/sdl/minesweeper/field.pir =================================================================== --- examples/sdl/minesweeper/field.pir (revision 35786) +++ examples/sdl/minesweeper/field.pir (working copy) @@ -26,6 +26,10 @@ This is an implementation of a Minesweeper game field. It draws the field onto a SDL surface. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =head1 METHODS An Mines::Field object has the following methods: Index: examples/sdl/tetris/board.pir =================================================================== --- examples/sdl/tetris/board.pir (revision 35786) +++ examples/sdl/tetris/board.pir (working copy) @@ -13,6 +13,10 @@ # let the current block of the board fall down fast board."fall"() +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .include "library/dumper.pir" Index: examples/sdl/tetris/blocks.pir =================================================================== --- examples/sdl/tetris/blocks.pir (revision 35786) +++ examples/sdl/tetris/blocks.pir (working copy) @@ -2,6 +2,10 @@ blocks.pir - tetris block classes +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .namespace ["Tetris::Blocks"] Index: examples/sdl/tetris/eventhandler.pir =================================================================== --- examples/sdl/tetris/eventhandler.pir (revision 35786) +++ examples/sdl/tetris/eventhandler.pir (working copy) @@ -2,6 +2,10 @@ eventhandler.pir - a tetris event handler class +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .namespace ["Tetris::EventHandler"] Index: examples/sdl/tetris/app.pir =================================================================== --- examples/sdl/tetris/app.pir (revision 35786) +++ examples/sdl/tetris/app.pir (working copy) @@ -23,6 +23,10 @@ This is the main tetris class. Neither has it parent classes nor is it subclassed. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut Index: examples/pasm/nanoforth2.pasm =================================================================== --- examples/pasm/nanoforth2.pasm (revision 35786) +++ examples/pasm/nanoforth2.pasm (working copy) @@ -16,6 +16,10 @@ : x compile single-letter word x ; end compile +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .macro core(op, label) Index: examples/pasm/xml_parser.pasm =================================================================== --- examples/pasm/xml_parser.pasm (revision 35786) +++ examples/pasm/xml_parser.pasm (working copy) @@ -65,6 +65,10 @@ 99 Data associated with this element 1000 (no data) sentinel for the bottom of the stack +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut # A functions-first kinda guy Index: examples/pasm/nanoforth.pasm =================================================================== --- examples/pasm/nanoforth.pasm (revision 35786) +++ examples/pasm/nanoforth.pasm (working copy) @@ -19,6 +19,10 @@ to branch into different code segments, or better it works only if bounds checking is disabled. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .macro core(op, label) Index: examples/past/blocktype_immediate.pir =================================================================== --- examples/past/blocktype_immediate.pir (revision 35786) +++ examples/past/blocktype_immediate.pir (working copy) @@ -26,6 +26,10 @@ F +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .namespace [] Index: examples/io/echo_client.pir =================================================================== --- examples/io/echo_client.pir (revision 35786) +++ examples/io/echo_client.pir (working copy) @@ -20,6 +20,10 @@ Shortly we will create an echo server in Parrot and combine these 2 into a test suite. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .sub _main Index: examples/io/http.pir =================================================================== --- examples/io/http.pir (revision 35786) +++ examples/io/http.pir (working copy) @@ -17,6 +17,10 @@ set C to 1 in F and rebuld Parrot or the network layer won't exist. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .sub example :main Index: examples/io/net_smtp.pasm =================================================================== --- examples/io/net_smtp.pasm (revision 35786) +++ examples/io/net_smtp.pasm (working copy) @@ -18,6 +18,10 @@ set C to 1 in F and rebuld Parrot or the network layer won't exist. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut print "Creating socket.\n" Index: examples/io/httpd.pir =================================================================== --- examples/io/httpd.pir (revision 35786) +++ examples/io/httpd.pir (working copy) @@ -82,6 +82,10 @@ Original author is Markus Amsler - The code was heavily hacked by bernhard and leo. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .const string CRLF = "\r\n" Index: examples/nci/sdl_blue_rectangle.pir =================================================================== --- examples/nci/sdl_blue_rectangle.pir (revision 35786) +++ examples/nci/sdl_blue_rectangle.pir (working copy) @@ -1,5 +1,12 @@ # $Id$ + +=head1 BUGS + +WARNING: This file doesn't currently compile. + +=cut + .sub _main :main _init() _MAIN() Index: examples/nci/ls.pir =================================================================== --- examples/nci/ls.pir (revision 35786) +++ examples/nci/ls.pir (working copy) @@ -9,6 +9,10 @@ List the content of the directory 'docs'. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut .sub _main :main Index: examples/nci/xlibtest.pir =================================================================== --- examples/nci/xlibtest.pir (revision 35786) +++ examples/nci/xlibtest.pir (working copy) @@ -15,6 +15,10 @@ Press Escape key to exit. +=head1 BUGS + +WARNING: This file doesn't currently compile. + =cut Index: examples/pge/simple.pir =================================================================== --- examples/pge/simple.pir (revision 35786) +++ examples/pge/simple.pir (working copy) @@ -1,3 +1,10 @@ + +=head1 BUGS + +WARNING: This file doesn't currently compile. + +=cut + .namespace [ "Simple" ] .sub "__onload" Index: examples/pge/benchmarks/ambs1/main.pir =================================================================== --- examples/pge/benchmarks/ambs1/main.pir (revision 35786) +++ examples/pge/benchmarks/ambs1/main.pir (working copy) @@ -1,3 +1,10 @@ + +=head1 BUGS + +WARNING: This file doesn't currently compile. + +=cut + .sub main :main load_bytecode 'PGE.pbc' load_bytecode 'dumper.pbc' Index: t/examples/catchall.t =================================================================== --- t/examples/catchall.t (revision 35786) +++ t/examples/catchall.t (working copy) @@ -10,6 +10,7 @@ use File::Spec qw(); use Test::More; use Parrot::Config qw(%PConfig); +use Parrot::Test; =head1 NAME @@ -37,12 +38,20 @@ plan tests => scalar keys %files; +# All these must be fixed before 1.0! +my $todo_check = qr/WARNING: This file doesn't currently compile\./m; + foreach my $file (sort keys %files) { - my $cmd = File::Spec->curdir() . $PConfig{slash} . + + my $contents = slurp_file($file); + + my $cmd = File::Spec->curdir() . $PConfig{slash} . $PConfig{test_prog} . " -o " . File::Spec->devnull() . " " . $file; - +TODO: { + local $TODO = "documented as broken" if ($contents =~ $todo_check); is(system($cmd), 0 , $file); + } } # Local Variables: