/extra/elf/nm/nm-tests.factor
http://github.com/abeaumont/factor · Factor · 53 lines · 49 code · 2 blank · 2 comment · 1 complexity · 5fb296cba2c28e828d4437d4f281d578 MD5 · raw file
- ! Copyright (C) 2010 Erik Charlebois.
- ! See http://factorcode.org/license.txt for BSD license.
- USING: elf.nm io io.streams.string kernel literals multiline strings
- system tools.test ;
- IN: elf.nm.tests
- STRING: validation-output
- 0000000000000000 absolute init.c
- 000000000040046c .text call_gmon_start
- 0000000000000000 absolute crtstuff.c
- 0000000000600e18 .ctors __CTOR_LIST__
- 0000000000600e28 .dtors __DTOR_LIST__
- 0000000000600e38 .jcr __JCR_LIST__
- 0000000000400490 .text __do_global_dtors_aux
- 0000000000601020 .bss completed.7342
- 0000000000601028 .bss dtor_idx.7344
- 0000000000400500 .text frame_dummy
- 0000000000000000 absolute crtstuff.c
- 0000000000600e20 .ctors __CTOR_END__
- 00000000004006d8 .eh_frame __FRAME_END__
- 0000000000600e38 .jcr __JCR_END__
- 00000000004005e0 .text __do_global_ctors_aux
- 0000000000000000 absolute test.c
- 0000000000600fe8 .got.plt _GLOBAL_OFFSET_TABLE_
- 0000000000600e14 .ctors __init_array_end
- 0000000000600e14 .ctors __init_array_start
- 0000000000600e40 .dynamic _DYNAMIC
- 0000000000601010 .data data_start
- 0000000000000000 undefined printf@@GLIBC_2.2.5
- 0000000000400540 .text __libc_csu_fini
- 0000000000400440 .text _start
- 0000000000000000 undefined __gmon_start__
- 0000000000000000 undefined _Jv_RegisterClasses
- 0000000000400618 .fini _fini
- 0000000000000000 undefined __libc_start_main@@GLIBC_2.2.5
- 0000000000400628 .rodata _IO_stdin_used
- 0000000000601010 .data __data_start
- 0000000000601018 .data __dso_handle
- 0000000000600e30 .dtors __DTOR_END__
- 0000000000400550 .text __libc_csu_init
- 0000000000601020 absolute __bss_start
- 0000000000601030 absolute _end
- 0000000000601020 absolute _edata
- 0000000000400524 .text main
- 00000000004003f0 .init _init
- ;
- cpu ppc? [
- { $ validation-output }
- [ <string-writer> dup [ "resource:extra/elf/a.elf" elf-nm ] with-output-stream >string ]
- unit-test
- ] unless