Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / openbios / forth / testsuite / splitfunc-testsuite.fs

diff --git a/qemu/roms/openbios/forth/testsuite/splitfunc-testsuite.fs b/qemu/roms/openbios/forth/testsuite/splitfunc-testsuite.fs
new file mode 100644 (file)
index 0000000..00469bb
--- /dev/null
+++ b/qemu/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
+ ;
+
+
+