qemu/roms/openbios/forth/testsuite/splitfunc-testsuite.fs

   1 \ this is the splitfunc testsuite.
   2 \
   3 \ run it with   paflof < splitfunc-testsuite.fs 2>/dev/null
   4
   5 \ implements split-before, split-after and left-split
   6 \ as described in 4.3 (Path resolution)
   7
   8 s" splitfunc.fs" included
   9
  10 : test-split
  11  s" var/log/messages" 2dup
  12
  13  cr ." split-before test:" cr
  14  2dup ." String: " type cr
  15  2f split-before
  16  2swap
  17  ." initial: " type cr ." remainder:" type cr
  18  cr
  19  ." split-after test:" cr
  20  2f split-after cr
  21  2swap
  22  ." initial: " type cr ." remainder:" type cr
  23
  24  ." foobar test" cr
  25
  26  s" foobar" 2dup
  27
  28  2f split-after cr
  29  2swap
  30  ." initial: " type cr ." remainder:" type cr
  31
  32  2f split-after cr
  33  2swap
  34  ." initial: " type cr ." remainder:" type cr
  35  ;
  36
  37
  38