[svn:parrot] r23379 - in trunk: . examples/japh t/examples

Author: coke
Date: Sun Dec  2 12:47:01 2007
New Revision: 23379

Added:
   trunk/examples/japh/japh1.pasm
      - copied unchanged from r23374, /trunk/examples/japh/japh6.pasm
   trunk/examples/japh/japh2.pasm
      - copied unchanged from r23374, /trunk/examples/japh/japh8.pasm
Removed:
   trunk/examples/japh/japh6.pasm
   trunk/examples/japh/japh8.pasm
Modified:
   trunk/MANIFEST
   trunk/examples/japh/README
   trunk/t/examples/japh.t

Log:
[examples] - renumber the japh tests, filling in the gaps caused by the
great JAPH culling of '06.



Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST      (original)
+++ trunk/MANIFEST      Sun Dec  2 12:47:01 2007
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec  2 13:36:50 2007 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec  2 20:44:43 2007 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -620,11 +620,11 @@
 examples/io/pipe2.pir                                       [main]doc
 examples/io/pipe3.pir                                       [main]doc
 examples/japh/README                                        [main]doc
+examples/japh/japh1.pasm                                    [main]doc
+examples/japh/japh2.pasm                                    [main]doc
 examples/japh/japh3.pasm                                    [main]doc
 examples/japh/japh4.pasm                                    [main]doc
 examples/japh/japh5.pasm                                    [main]doc
-examples/japh/japh6.pasm                                    [main]doc
-examples/japh/japh8.pasm                                    [main]doc
 examples/library/acorn.l                                    [main]doc
 examples/library/getopt_demo.pir                            [main]doc
 examples/library/md5sum.pir                                 [main]doc

Modified: trunk/examples/japh/README
==============================================================================
--- trunk/examples/japh/README  (original)
+++ trunk/examples/japh/README  Sun Dec  2 12:47:01 2007
@@ -1,22 +1,13 @@
 # Copyright (C) 2001-2005, The Perl Foundation.
 $Id$
 
-XXX
-XXX a lot of the JAPHs are currently broken due to recent core changes
-XXX some of them have been removed as doomed never to work again
-XXX
-
 These programs show very different ways how to print a simple
 string. Some are obfuscated, some are horribly platform dependend.
 
-To run them all:
+To run them all (from the top level directory)
 
-$ make -C examples/compilers  # [1]
+$ make
 $ for f in examples/japh/japh*.pasm; do ./parrot $f ; done
 
-Note: japh16 is using a shared lib, which is built by [1]
-
 These JAPHs are also tested by 'make test' in the Parrot root directory.
 The test file is 't/examples/japh.t'.
-
-leo

Modified: trunk/t/examples/japh.t
==============================================================================
--- trunk/t/examples/japh.t     (original)
+++ trunk/t/examples/japh.t     Sun Dec  2 12:47:01 2007
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 5;
 use Parrot::Config;
 
 =head1 NAME
@@ -28,39 +28,22 @@
 
 Get the TODO JAPHs working or decide that they are not suitable for testing.
 
-=head1 SEE ALSO
-
-[perl #37082] in the Parrot RT
-
 =cut
 
 # known reasons for failure
-my %todo = (
-    1  => 'deleted, opcode "pack" is gone',
-    2  => 'deleted, opcode "pack" is gone',
-    7  => 'skipped',
-    9  => 'P1 is no longer special',
-    10 => 'core dump',
-    11 => 'opcode "pack" is gone, other reasons',
-    12 => '{{deleted}}',
-    13 => 'unreliable, but often succeeds',
-    14 => 'unknown reason',
-    15 => 'deleted, opcode "compile" is gone',
-    16 => 'deleted, opcode "compile" is gone',
-    17 => 'unknown reason',
-);
+my %todo = ();
 if ( $PConfig{bigendian} ) {
-    $todo{8} = 'works only on little endian';
+    $todo{2} = 'works only on little endian';
 }
 if ( $PConfig{intvalsize} == 8 ) {
-    $todo{8} = 'works only with 32-bit integer values';
+    $todo{2} = 'works only with 32-bit integer values';
 }
-if ( $ENV{TEST_PROG_ARGS} =~ /-j/ ) {
+if ( defined( $ENV{TEST_PROG_ARGS}) && $ENV{TEST_PROG_ARGS} =~ /-j/ ) {
     $todo{4} = 'broken with -j';
 }
 
 # run all tests and tell about todoness
-foreach ( 1 .. 17 ) {
+foreach ( 1..5 ) {
     my $pasm_fn = "examples/japh/japh$_.pasm";
     unless ( -e $pasm_fn ) {
         pass("deleted");