Fixing unit tests and listener merge
parent
a9c6ea1ce3
commit
578d620223
|
|
@ -70,7 +70,7 @@ USING: tools.test io.files io threads kernel continuations io.encodings.ascii ;
|
|||
|
||||
[ ] [
|
||||
"delete-tree-test/a/b/c/d" temp-file
|
||||
[ "Hi" print ] with-file-writer
|
||||
ascii [ "Hi" print ] with-file-writer
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
@ -83,7 +83,7 @@ USING: tools.test io.files io threads kernel continuations io.encodings.ascii ;
|
|||
|
||||
[ ] [
|
||||
"copy-tree-test/a/b/c/d" temp-file
|
||||
[ "Foobar" write ] with-file-writer
|
||||
ascii [ "Foobar" write ] with-file-writer
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
@ -92,7 +92,7 @@ USING: tools.test io.files io threads kernel continuations io.encodings.ascii ;
|
|||
] unit-test
|
||||
|
||||
[ "Foobar" ] [
|
||||
"copy-destination/a/b/c/d" temp-file file-contents
|
||||
"copy-destination/a/b/c/d" temp-file ascii file-contents
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
@ -105,7 +105,7 @@ USING: tools.test io.files io threads kernel continuations io.encodings.ascii ;
|
|||
] unit-test
|
||||
|
||||
[ "Foobar" ] [
|
||||
"copy-destination/copy-tree-test/a/b/c/d" temp-file file-contents
|
||||
"copy-destination/copy-tree-test/a/b/c/d" temp-file ascii file-contents
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
@ -113,7 +113,7 @@ USING: tools.test io.files io threads kernel continuations io.encodings.ascii ;
|
|||
] unit-test
|
||||
|
||||
[ "Foobar" ] [
|
||||
"d" temp-file file-contents
|
||||
"d" temp-file ascii file-contents
|
||||
] unit-test
|
||||
|
||||
[ ] [ "d" temp-file delete-file ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2003, 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays hashtables io kernel math math.parser memory
|
||||
namespaces parser sequences strings io.styles io.streams.lines
|
||||
namespaces parser sequences strings io.styles
|
||||
io.streams.duplex vectors words generic system combinators
|
||||
tuples continuations debugger definitions compiler.units ;
|
||||
IN: listener
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
IN: io.unix.launcher.tests
|
||||
USING: io.files tools.test io.launcher arrays io namespaces
|
||||
continuations math ;
|
||||
continuations math io.encodings.ascii ;
|
||||
|
||||
[ ] [
|
||||
[ "launcher-test-1" temp-file delete-file ] ignore-errors
|
||||
|
|
@ -30,7 +30,7 @@ continuations math ;
|
|||
"cat"
|
||||
"launcher-test-1" temp-file
|
||||
2array
|
||||
<process-stream> contents
|
||||
ascii <process-stream> contents
|
||||
] unit-test
|
||||
|
||||
[ "" ] [
|
||||
|
|
@ -39,7 +39,7 @@ continuations math ;
|
|||
"launcher-test-1" temp-file
|
||||
2array +arguments+ set
|
||||
+inherit+ +stdout+ set
|
||||
] { } make-assoc <process-stream> contents
|
||||
] { } make-assoc ascii <process-stream> contents
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
@ -58,12 +58,12 @@ continuations math ;
|
|||
"cat"
|
||||
"launcher-test-1" temp-file
|
||||
2array
|
||||
<process-stream> contents
|
||||
ascii <process-stream> contents
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
2 [
|
||||
"launcher-test-1" temp-file <file-appender> [
|
||||
"launcher-test-1" temp-file ascii <file-appender> [
|
||||
[
|
||||
+stdout+ set
|
||||
"echo Hello" +command+ set
|
||||
|
|
@ -76,5 +76,5 @@ continuations math ;
|
|||
"cat"
|
||||
"launcher-test-1" temp-file
|
||||
2array
|
||||
<process-stream> contents
|
||||
ascii <process-stream> contents
|
||||
] unit-test
|
||||
|
|
|
|||
Loading…
Reference in New Issue