Removed line editor unit tests
parent
0a47cd4a75
commit
2d697ff73a
|
@ -61,10 +61,7 @@
|
||||||
- horizontal wheel scrolling
|
- horizontal wheel scrolling
|
||||||
- polish OS X menu bar code
|
- polish OS X menu bar code
|
||||||
- variable width word wrap
|
- variable width word wrap
|
||||||
- use models for the following:
|
- slider needs to be modelized
|
||||||
- editor gadgets
|
|
||||||
- search tool
|
|
||||||
- slider needs range-model or similar
|
|
||||||
|
|
||||||
+ compiler/ffi:
|
+ 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
|
"model-c" get model-value
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
<history> "history" set
|
f <history> "history" set
|
||||||
|
|
||||||
"history" get add-history
|
"history" get add-history
|
||||||
|
|
||||||
|
|
|
@ -84,7 +84,6 @@ SYMBOL: failures
|
||||||
"continuations"
|
"continuations"
|
||||||
"errors"
|
"errors"
|
||||||
"gadgets/document"
|
"gadgets/document"
|
||||||
"gadgets/line-editor"
|
|
||||||
"gadgets/models"
|
"gadgets/models"
|
||||||
"gadgets/rectangles"
|
"gadgets/rectangles"
|
||||||
"generic"
|
"generic"
|
||||||
|
|
Loading…
Reference in New Issue