/extra/elf/nm/nm-tests.factor

 1! Copyright (C) 2010 Erik Charlebois.
 2! See http://factorcode.org/license.txt for BSD license.
 3USING: elf.nm io io.streams.string kernel literals multiline strings
 4system tools.test ;
 5IN: elf.nm.tests
 6
 7STRING: validation-output
 80000000000000000 absolute         init.c
 9000000000040046c .text            call_gmon_start
100000000000000000 absolute         crtstuff.c
110000000000600e18 .ctors           __CTOR_LIST__
120000000000600e28 .dtors           __DTOR_LIST__
130000000000600e38 .jcr             __JCR_LIST__
140000000000400490 .text            __do_global_dtors_aux
150000000000601020 .bss             completed.7342
160000000000601028 .bss             dtor_idx.7344
170000000000400500 .text            frame_dummy
180000000000000000 absolute         crtstuff.c
190000000000600e20 .ctors           __CTOR_END__
2000000000004006d8 .eh_frame        __FRAME_END__
210000000000600e38 .jcr             __JCR_END__
2200000000004005e0 .text            __do_global_ctors_aux
230000000000000000 absolute         test.c
240000000000600fe8 .got.plt         _GLOBAL_OFFSET_TABLE_
250000000000600e14 .ctors           __init_array_end
260000000000600e14 .ctors           __init_array_start
270000000000600e40 .dynamic         _DYNAMIC
280000000000601010 .data            data_start
290000000000000000 undefined        printf@@GLIBC_2.2.5
300000000000400540 .text            __libc_csu_fini
310000000000400440 .text            _start
320000000000000000 undefined        __gmon_start__
330000000000000000 undefined        _Jv_RegisterClasses
340000000000400618 .fini            _fini
350000000000000000 undefined        __libc_start_main@@GLIBC_2.2.5
360000000000400628 .rodata          _IO_stdin_used
370000000000601010 .data            __data_start
380000000000601018 .data            __dso_handle
390000000000600e30 .dtors           __DTOR_END__
400000000000400550 .text            __libc_csu_init
410000000000601020 absolute         __bss_start
420000000000601030 absolute         _end
430000000000601020 absolute         _edata
440000000000400524 .text            main
4500000000004003f0 .init            _init
46
47;
48
49cpu ppc? [
50    { $ validation-output }
51    [ <string-writer> dup [ "resource:extra/elf/a.elf" elf-nm ] with-output-stream >string ]
52    unit-test
53] unless