Removed line editor unit tests
parent
0a47cd4a75
commit
2d697ff73a
|
@ -61,10 +61,7 @@
|
|||
- horizontal wheel scrolling
|
||||
- polish OS X menu bar code
|
||||
- variable width word wrap
|
||||
- use models for the following:
|
||||
- editor gadgets
|
||||
- search tool
|
||||
- slider needs range-model or similar
|
||||
- slider needs to be modelized
|
||||
|
||||
+ compiler/ffi:
|
||||
|
||||
|
|
|
@ -1,58 +0,0 @@
|
|||
IN: temporary
|
||||
USING: kernel line-editor namespaces sequences strings test ;
|
||||
|
||||
<line-editor> "editor" set
|
||||
|
||||
[ 14 ] [ 4 5 5 10 (point-update) ] unit-test
|
||||
|
||||
[ 10 ] [ 4 15 15 10 (point-update) ] unit-test
|
||||
|
||||
[ 6 ] [ 0 5 9 10 (point-update) ] unit-test
|
||||
|
||||
[ 5 ] [ 0 5 13 10 (point-update) ] unit-test
|
||||
|
||||
[ 10 ] [ 0 18 23 10 (point-update) ] unit-test
|
||||
|
||||
[ 0 ] [ 0 0 10 10 (point-update) ] unit-test
|
||||
|
||||
[ "Hello world" ] [
|
||||
"Hello world" 0 0 "editor" get [ line-replace ] bind
|
||||
"editor" get [ line-text get ] bind
|
||||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
"editor" get [ caret-pos ] bind
|
||||
"Hello world" length =
|
||||
] unit-test
|
||||
|
||||
[ "Hello, crazy world" ] [
|
||||
"editor" get [ 0 set-caret-pos ] bind
|
||||
", crazy" 5 5 "editor" get [ line-replace ] bind
|
||||
"editor" get [ line-text get ] bind
|
||||
] unit-test
|
||||
|
||||
[ 0 ] [ "editor" get [ caret-pos ] bind ] unit-test
|
||||
|
||||
[ "Hello, crazy world" ] [
|
||||
"editor" get [ 5 set-caret-pos "Hello world" line-text set ] bind
|
||||
", crazy" 5 5 "editor" get [ line-replace ] bind
|
||||
"editor" get [ line-text get ] bind
|
||||
] unit-test
|
||||
|
||||
[ "Hello, crazy" ] [
|
||||
"editor" get [ caret-pos line-text get head ] bind
|
||||
] unit-test
|
||||
|
||||
[ "Hellorld" ]
|
||||
[
|
||||
"editor" get [ 0 set-caret-pos "Hello world" line-text set ] bind
|
||||
4 7 "editor" get [ line-remove ] bind
|
||||
"editor" get [ line-text get ] bind
|
||||
] unit-test
|
||||
|
||||
[ 0 "" ]
|
||||
[
|
||||
"editor" get [ "hello world" set-line-text ] bind
|
||||
"editor" get [ 0 line-length line-remove ] bind
|
||||
"editor" get [ caret-pos line-text get ] bind
|
||||
] unit-test
|
|
@ -30,7 +30,7 @@ T{ model-tester f f } "tester" set
|
|||
"model-c" get model-value
|
||||
] unit-test
|
||||
|
||||
<history> "history" set
|
||||
f <history> "history" set
|
||||
|
||||
"history" get add-history
|
||||
|
||||
|
|
|
@ -84,7 +84,6 @@ SYMBOL: failures
|
|||
"continuations"
|
||||
"errors"
|
||||
"gadgets/document"
|
||||
"gadgets/line-editor"
|
||||
"gadgets/models"
|
||||
"gadgets/rectangles"
|
||||
"generic"
|
||||
|
|
Loading…
Reference in New Issue