mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
5c9eb9b45b
git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32
39 lines
690 B
Forth
39 lines
690 B
Forth
\ this is the splitfunc testsuite.
|
|
\
|
|
\ run it with paflof < splitfunc-testsuite.fs 2>/dev/null
|
|
|
|
\ implements split-before, split-after and left-split
|
|
\ as described in 4.3 (Path resolution)
|
|
|
|
s" splitfunc.fs" included
|
|
|
|
: test-split
|
|
s" var/log/messages" 2dup
|
|
|
|
cr ." split-before test:" cr
|
|
2dup ." String: " type cr
|
|
2f split-before
|
|
2swap
|
|
." initial: " type cr ." remainder:" type cr
|
|
cr
|
|
." split-after test:" cr
|
|
2f split-after cr
|
|
2swap
|
|
." initial: " type cr ." remainder:" type cr
|
|
|
|
." foobar test" cr
|
|
|
|
s" foobar" 2dup
|
|
|
|
2f split-after cr
|
|
2swap
|
|
." initial: " type cr ." remainder:" type cr
|
|
|
|
2f split-after cr
|
|
2swap
|
|
." initial: " type cr ." remainder:" type cr
|
|
;
|
|
|
|
|
|
|