Removed line editor unit tests

slava 2006-07-20 00:32:51 +00:00
parent 0a47cd4a75
commit 2d697ff73a
4 changed files with 2 additions and 64 deletions

View File

@ -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:

View File

@ -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

View File

@ -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

View File

@ -84,7 +84,6 @@ SYMBOL: failures
"continuations"
"errors"
"gadgets/document"
"gadgets/line-editor"
"gadgets/models"
"gadgets/rectangles"
"generic"