Fixing unit tests and listener merge

db4
Daniel Ehrenberg 2008-03-04 18:12:01 -06:00
parent a9c6ea1ce3
commit 578d620223
3 changed files with 12 additions and 12 deletions

View File

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

View File

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

View File

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