! Copyright (C) 2010 Erik Charlebois.
! See https://factorcode.org/license.txt for BSD license.
USING: accessors alien http.download io.files.temp
io.streams.string kernel literals macho multiline sequences
system tools.test urls ;
IN: macho.tests

STRING: validation-output
0000000100000f1c __stub_helper    stub helpers
0000000100001040 __program_vars  _pvars
0000000100001068 __data          _NXArgc
0000000100001070 __data          _NXArgv
0000000100001080 __data          ___progname
0000000100000000                 __mh_execute_header
0000000100001078 __data          _environ
0000000100000ef8 __text          _main
0000000100000ebc __text          start
0000000000000000                 ___gxx_personality_v0
0000000000000000                 _exit
0000000000000000                 _printf
0000000000000000                 dyld_stub_binder

;

: a.macho ( -- path )
    URL" https://downloads.factorcode.org/misc/a.macho"
    "a.macho" cache-file download-once-as ;

: a2.macho ( -- path )
    URL" https://downloads.factorcode.org/misc/a2.macho"
    "a2.macho" cache-file download-once-as ;

cpu ppc? [
    { $ validation-output }
    [ [ a.macho macho-nm ] with-string-writer ]
    unit-test

    { t } [
        a2.macho [
            >c-ptr fat-binary-members first data>> >c-ptr macho-header 64-bit?
        ] with-mapped-macho
    ] unit-test
] unless

! Throw an exception if the struct is not defined/handled
os macosx? [
    { } [ vm-path dylib-exports drop ] unit-test
] when