From 7a2a3fab3433ae6d1c1a43dc76c5bf362e1e47db Mon Sep 17 00:00:00 2001
From: mikehh <mikehh@d31e2699-5ff4-0310-a27c-f18f2fbe73fe>
Date: Sat, 31 Jul 2010 17:55:52 +0000
Subject: [PATCH] put in TODO for MSWin32 (64 bit) - tested what I could but
 not on that platform

git-svn-id: https://svn.parrot.org/parrot/trunk@48240 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 t/op/64bit.t | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/t/op/64bit.t b/t/op/64bit.t
index 14de3aa98d..65c4adddb1 100644
--- a/t/op/64bit.t
+++ b/t/op/64bit.t
@@ -36,7 +36,18 @@ Tests are skipped on other platforms.
     goto end
 
   is_64_bit:
-    bitops64()
+
+    # setup TODO for platform 'MSWin32'
+    .local string osname
+    osname = config['osname']
+    .local int todo_1
+    todo_1 = 0
+    unless  osname == "MSWin32" goto do_test
+    todo_1 = 1
+
+  do_test:
+
+    bitops64(todo_1)
 
   end:
 .end
@@ -44,10 +55,22 @@ Tests are skipped on other platforms.
 
 .sub bitops64
         # check bitops for 8-byte ints
+        .param int todo_1
 
         set $I0, 0xffffffffffffffff
+
+        if todo_1 goto do_todo
         is( $I0, -1, 'bitops64' )
+        goto test_2
+
+      do_todo:
+        if $I0 == -1 goto todo_pass
+        todo ( 0, 'bitops64', 'not working on MSWin32, amd64' )
+        goto test_2
+      todo_pass:
+        todo ( 1, 'bitops64', 'not working on MSWin32, amd64' )
 
+      test_2:
         set $I1, 0x00000000ffffffff
         is( $I1, 4294967295, 'bitops64' )
 
-- 
2.11.4.GIT