Initial import of abandoned HQEMU version 2.5.2HEADmaster

1 files changed, 38 insertions, 0 deletions

diff --git a/src/roms/openbios/forth/testsuite/splitfunc-testsuite.fs b/src/roms/openbios/forth/testsuite/splitfunc-testsuite.fs
new file mode 100644
index 0000000..00469bb
--- /dev/null
+++ b/src/roms/openbios/forth/testsuite/splitfunc-testsuite.fs
@@ -0,0 +1,38 @@
+\ 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
+ ;
+
+
+