extra/gap-buffer/gap-buffer-tests.factor

   1 USING: kernel sequences tools.test gap-buffer strings math ;
   2
   3 ! test copy-elements
   4 [ { 0 3 4 3 4 5 } ] [ { 0 1 2 3 4 5 } dup >r -2 3 5 r> copy-elements ] unit-test
   5 [ { 0 1 2 1 2 5 } ] [ { 0 1 2 3 4 5 } dup >r 2 2 0 r> copy-elements ] unit-test
   6 [ "01234567856" ] [ "01234567890" dup >r 4 6 4 r> copy-elements ] unit-test
   7
   8 ! test sequence protocol (like, length, nth, set-nth)
   9 [ "gap buffers are cool" ] [ "gap buffers are cool" <gb> "" like ] unit-test
  10
  11 ! test move-gap-back-inside
  12 [ t f ] [ 5 "0123456" <gb> move-gap-forward? >r move-gap-back-inside? 2nip r> ] unit-test
  13 [ "0123456" ] [ "0123456" <gb> 5 over move-gap >string ] unit-test
  14 ! test move-gap-forward-inside
  15 [ t ] [ "I once ate a spaniel" <gb> 15 over move-gap 17 swap move-gap-forward-inside? 2nip ] unit-test
  16 [ "I once ate a spaniel" ] [ "I once ate a spaniel" <gb> 15 over move-gap 17 over move-gap >string ] unit-test
  17 ! test move-gap-back-around
  18 [ f f ] [ 2 "terriers are ok too" <gb> move-gap-forward? >r move-gap-back-inside? 2nip r> ] unit-test
  19 [ "terriers are ok too" ] [ "terriers are ok too" <gb> 2 over move-gap >string ] unit-test
  20 ! test move-gap-forward-around
  21 [ f t ] [ "god is nam's best friend" <gb> 2 over move-gap 22 over position>index swap move-gap-forward? >r move-gap-forward-inside? 2nip r> ] unit-test
  22 [ "god is nam's best friend" ] [ "god is nam's best friend" <gb> 2 over move-gap 22 over move-gap >string ] unit-test
  23
  24 ! test changing buffer contents
  25 [ "factory" ] [ "factor" <gb> CHAR: y 6 pick insert* >string ] unit-test
  26 ! test inserting multiple elements in different places. buffer should grow
  27 [ "refractory" ] [ "factor" <gb> CHAR: y 6 pick insert* "re" 0 pick insert* CHAR: r 3 pick insert* >string ] unit-test
  28 ! test deleting elements. buffer should shrink
  29 [ "for" ] [ "factor" <gb> 3 [ 1 over delete* ] times >string ] unit-test
  30 ! more testing of nth and set-nth
  31 [ "raptor" ] [ "factor" <gb> CHAR: p 2 pick set-nth 5 over nth 0 pick set-nth >string ] unit-test
  32
  33 ! test stack/queue operations
  34 [ "slaughter" ] [ "laughter" <gb> CHAR: s over push-start >string ] unit-test
  35 [ "pantonio" ] [ "pant" <gb> "onio" over push-end >string ] unit-test
  36 [ CHAR: f "actor" ] [ "factor" <gb> dup pop-start swap >string ] unit-test
  37 [ CHAR: s "pant" ] [ "pants" <gb> dup pop-end swap >string ] unit-test
  38 [ "end this is the " ] [ "this is the end " <gb> 4 over rotate >string ] unit-test
  39 [ "your jedi training is finished " ] [ "finished your jedi training is " <gb> -9 over rotate >string ] unit-test
  40