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

Author: jonathan
Date: Tue Dec 18 07:08:33 2007
New Revision: 24040

Modified:
   trunk/PLATFORMS
   trunk/t/examples/tutorial.t

Log:
Todo failing examples test on Win32.

Modified: trunk/PLATFORMS
==============================================================================
--- trunk/PLATFORMS     (original)
+++ trunk/PLATFORMS     Tue Dec 18 07:08:33 2007
@@ -41,7 +41,7 @@
 cygwin1.5.24-x86-gcc3.4.4     4   Y    Y    -     -   -   Y    Y/6*1 ?  
20071016
 win32-x86-mingw-gcc3.4.2          Y    Y    -     -   -   Y    Y/6   Y  
20071120
 win32-x86-mingw_gcc4.2.1          Y    Y    -     -   -   Y    Y/8   ?  
20071016
-win32-x86-msvc_7.1                -    Y    -     -   -   Y    Y/4   ?  
20071016
+win32-x86-msvc_7.1                -    Y    -     -   -   Y    Y/8   ?  
20071218
 win32-x86-msvc_8.0                -    Y    -     -   -   Y    Y*2   ?  
20071016
 win32-x86_64-msvc_8.0             -    N    -     -   -   N    N     ?  
20071016
 win32-x86-msvc_9.0                -    Y    -     -   -   Y    Y     ?  
20071016

Modified: trunk/t/examples/tutorial.t
==============================================================================
--- trunk/t/examples/tutorial.t (original)
+++ trunk/t/examples/tutorial.t Tue Dec 18 07:08:33 2007
@@ -244,7 +244,11 @@
     fail('12_math_ops_pasm.pir');
 }
 
-example_output_is( "examples/tutorial/51_if_unless.pir", << 'END_EXPECTED' );
+my @TODO_35 = ();
+if ($^O =~ /Win32/) {
+    @TODO_35 = ( todo => 'Failing on Win32' );
+}
+example_output_is( "examples/tutorial/51_if_unless.pir", << 'END_EXPECTED', 
@TODO_35 );
 before if
 after if