steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix editors unit tests

release
Slava Pestov 2007-11-16 03:26:00 -05:00
parent 57893118e0
commit 55c4abc39b
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/ui/gadgets/editors/editors-tests.factor
View File

@ -1,16 +1,8 @@
USING: ui.gadgets.editors tools.test kernel io io.streams.plain USING: ui.gadgets.editors tools.test kernel io io.streams.plain
io.streams.string definitions namespaces ui.gadgets definitions namespaces ui.gadgets
ui.gadgets.grids prettyprint documents ui.gestures ui.gadgets.grids prettyprint documents ui.gestures
tools.test.inference tools.test.ui ; tools.test.inference tools.test.ui ;
[ t ] [
<editor> "editor" set
"editor" get [
"editor" get <plain-writer> [ \ = see ] with-stream
"editor" get editor-string [ \ = see ] string-out =
] with-grafted-gadget
] unit-test
[ "foo bar" ] [ [ "foo bar" ] [
<editor> "editor" set <editor> "editor" set
"editor" get [ "editor" get [