35 lines
617 B
Factor
35 lines
617 B
Factor
USE: test
|
|
USE: image
|
|
USE: namespaces
|
|
USE: stdio
|
|
USE: parser
|
|
USE: kernel
|
|
USE: generic
|
|
USE: math
|
|
|
|
[ "ab\0\0" ] [ 4 "ab" align-string ] unit-test
|
|
|
|
[ { 0 } ] [
|
|
[ "\0\0\0\0" emit-chars ] with-minimal-image
|
|
] unit-test
|
|
|
|
[ { 6815845 7077996 7274528 7798895 7471212 6553600 } ]
|
|
[
|
|
[
|
|
"big-endian" on
|
|
[ "hello world" pack-string ] with-minimal-image
|
|
] with-scope
|
|
] unit-test
|
|
|
|
[ "\0\0\0\0\u000f\u000e\r\u000c" ]
|
|
[
|
|
[ image-magic write-big-endian-64 ] with-string
|
|
] unit-test
|
|
|
|
[
|
|
boot-quot off
|
|
"/library/bootstrap/boot.factor" run-resource
|
|
] with-image drop
|
|
|
|
[ fixnum ] [ 4 class ] unit-test
|