steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

release
Erik Charlebois 2010-04-15 16:31:37 -07:00
parent d8c26b7d87
commit ccda46921f
3 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/elf/elf-tests.factor
View File

@ -1,8 +1,9 @@
! Copyright (C) 2010 Erik Charlebois. ! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: elf.tests
cpu ppc? [
{ {
{ {
"" ""
@ -178,3 +179,4 @@ unit-test
] with-mapped-elf ] with-mapped-elf
] ]
unit-test unit-test
] unless

12
extra/elf/nm/nm-tests.factor
View File

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

14
extra/macho/macho-tests.factor
View File

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