Todo failing scheduler tests on Win32.

git-svn-id: https://svn.parrot.org/parrot/trunk@24039 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Dec 18, 2007 · c5c9f2d · c5c9f2d
1 parent 3b77982
commit c5c9f2d
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/t/pmc/scheduler.t b/t/pmc/scheduler.t
@@ -22,7 +22,12 @@ Tests the concurrency scheduler PMC.
 
 =cut
 
-pir_output_is( <<'CODE', <<'OUT', "create a concurrency scheduler and set attributes" );
+my @TODO = ();
+if ($^O =~ /Win32/) {
+    @TODO = ( todo => 'Not working on Win32 yet.' );
+}
+
+pir_output_is( <<'CODE', <<'OUT', "create a concurrency scheduler and set attributes", @TODO );
   .sub main :main
     $P0 = new "Scheduler"
     $P1 = new "Task"
@@ -51,7 +56,7 @@ created
 1
 OUT
 
-pir_output_is( <<'CODE', <<'OUT', "create a concurrency scheduler with initializer" );
+pir_output_is( <<'CODE', <<'OUT', "create a concurrency scheduler with initializer", @TODO );
   .sub main :main
     .local pmc data
     data       = new 'Hash'