Author: bernhard
Date: Thu Nov 10 14:28:10 2005
New Revision: 9894

Added:
   trunk/examples/pasm/queens.pasm
      - copied unchanged from r9893, trunk/examples/assembly/queens.pasm
Removed:
   trunk/examples/assembly/queens.pasm
Modified:
   trunk/MANIFEST
   trunk/t/examples/pasm.t
Log:
Move the example 'queens.pasm' to examples/pasm and add a test.


Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST      (original)
+++ trunk/MANIFEST      Thu Nov 10 14:28:10 2005
@@ -459,7 +459,6 @@ examples/assembly/nanoforth.pasm        
 examples/assembly/nanoforth2.pasm                 [main]doc
 examples/assembly/ncurses_life.imc                [main]doc
 examples/assembly/pmcmops.pasm                    [main]doc
-examples/assembly/queens.pasm                     [main]doc
 examples/assembly/queens_r.imc                    [main]doc
 examples/assembly/thr-primes.imc                  [main]doc
 examples/benchmarks/addit.imc                     [main]doc
@@ -591,6 +590,7 @@ examples/pasm/cat.pasm                  
 examples/pasm/fact.pasm                           [main]doc
 examples/pasm/hello.pasm                          [main]doc
 examples/pasm/lexical.pasm                        [main]doc
+examples/pasm/queens.pasm                         [main]doc
 examples/pasm/small.xml                           [main]doc
 examples/pasm/stack.pasm                          [main]doc
 examples/pasm/trace.pasm                          [main]doc

Modified: trunk/t/examples/pasm.t
==============================================================================
--- trunk/t/examples/pasm.t     (original)
+++ trunk/t/examples/pasm.t     Thu Nov 10 14:28:10 2005
@@ -19,6 +19,7 @@ Test the examples in F<examples/pasm>.
 =head1 TODO
 
 Check on remaining examples in 'examples/assembly'.
+Put expected output into the example files.
 
 =head1 SEE ALSO
 
@@ -27,7 +28,7 @@ F<t/examples/pir.t>
 =cut
 
 use strict;
-use Parrot::Test tests => 6;
+use Parrot::Test tests => 7;
 
 # Set up expected output for examples
 my %expected
@@ -76,6 +77,29 @@ The lexical 'a' has in the current scope
 The lexical 'b' has in the current scope the value 3.
 END_EXPECTED
 
+    'queens.pasm'        =>  << 'END_EXPECTED',
+Making new board with 8 ranks and 8 files...
+Board length is 64.
+  +---+---+---+---+---+---+---+---+
+8 |   | * | Q | * |   | * |   | * |
+  +---+---+---+---+---+---+---+---+
+7 | * |   | * |   | * | Q | * |   |
+  +---+---+---+---+---+---+---+---+
+6 |   | * |   | Q |   | * |   | * |
+  +---+---+---+---+---+---+---+---+
+5 | * | Q | * |   | * |   | * |   |
+  +---+---+---+---+---+---+---+---+
+4 |   | * |   | * |   | * |   | Q |
+  +---+---+---+---+---+---+---+---+
+3 | * |   | * |   | Q |   | * |   |
+  +---+---+---+---+---+---+---+---+
+2 |   | * |   | * |   | * | Q | * |
+  +---+---+---+---+---+---+---+---+
+1 | Q |   | * |   | * |   | * |   |
+  +---+---+---+---+---+---+---+---+
+    A   B   C   D   E   F   G   H  
+END_EXPECTED
+
     'stack.pasm'        =>  << 'END_EXPECTED',
 87654321098765432100123456789012345678998765432109876543210
 END_EXPECTED

Reply via email to