| \ 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 |
| ; |
| |
| |
| |