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.
! 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

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

@ -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

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

@ -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