Don't run mach-o and elf tests on ppc until endian issue sorted out

diff --git a/extra/elf/elf-tests.factor b/extra/elf/elf-tests.factor
index d68885e6b7a67ee0fae93f187f28aedb92e9b91f..4d1bb5be061e3eb8bf4215048c13685224a50acc 100644 (file)
--- a/extra/elf/elf-tests.factor
+++ b/extra/elf/elf-tests.factor
@@ -1,8 +1,9 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors byte-arrays elf kernel sequences tools.test ;
+USING: accessors byte-arrays elf kernel sequences system tools.test ;
 IN: elf.tests
 
+cpu ppc? [
 {
     {
         ""
@@ -178,3 +179,4 @@ unit-test
     ] with-mapped-elf
 ]
 unit-test
+] unless

diff --git a/extra/elf/nm/nm-tests.factor b/extra/elf/nm/nm-tests.factor
index 9e529ae43d8f71f8ceab6738ce8492e926cd1882..90d9634750149bc1b36ff2577bb8c8b9eb1a9da2 100644 (file)
--- a/extra/elf/nm/nm-tests.factor
+++ b/extra/elf/nm/nm-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: elf.nm io io.streams.string kernel multiline strings tools.test
-literals ;
+USING: elf.nm io io.streams.string kernel literals multiline strings
+system tools.test ;
 IN: elf.nm.tests
 
 STRING: validation-output
@@ -46,6 +46,8 @@ STRING: validation-output
 
 ;
 
-{ $ validation-output }
-[ <string-writer> dup [ "resource:extra/elf/a.elf" elf-nm ] with-output-stream >string ]
-unit-test
+cpu ppc? [
+    { $ validation-output }
+    [ <string-writer> dup [ "resource:extra/elf/a.elf" elf-nm ] with-output-stream >string ]
+    unit-test
+] unless

diff --git a/extra/macho/macho-tests.factor b/extra/macho/macho-tests.factor
index d52eb778f6fed6bcc26f51696f4b0bacb76aa9c7..561a98cd706621283701a7af6efe223e396bff99 100644 (file)
--- a/extra/macho/macho-tests.factor
+++ b/extra/macho/macho-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien io io.streams.string kernel literals macho
-multiline sequences strings tools.test ;
+multiline sequences strings system tools.test ;
 IN: macho.tests
 
 STRING: validation-output
@@ -21,12 +21,14 @@ STRING: validation-output
 
 ;
 
-{ $ validation-output }
-[ <string-writer> dup [ "resource:extra/macho/a.macho" macho-nm ] with-output-stream >string ]
-unit-test
-
-{ t } [
-    "resource:extra/macho/a2.macho" [
-        >c-ptr fat-binary-members first data>> >c-ptr macho-header 64-bit?
-    ] with-mapped-macho
-] unit-test
+cpu ppc? [
+    { $ validation-output }
+    [ <string-writer> dup [ "resource:extra/macho/a.macho" macho-nm ] with-output-stream >string ]
+    unit-test
+    
+    { t } [
+        "resource:extra/macho/a2.macho" [
+            >c-ptr fat-binary-members first data>> >c-ptr macho-header 64-bit?
+        ] with-mapped-macho
+    ] unit-test
+] unless