Build report for windows/x86.32
Tests failed
Build output:
[
[
[ ] with-unique-directory
[ file-exists? ] [ delete-tree ] bi
] with-temp-directory
]
}
Unit Test: {
{ t }
[
[
[
"asdf" "" unique-file drop "asdf" "" unique-file
drop "." directory-files length 2 =
] with-unique-directory drop
] with-temp-directory
]
}
Unit Test: {
{ 29 }
[
[
"unique-files-"
{ "-test.0" "-test.1" }
[ [ file-name ] map first2 mismatch ]
cleanup-unique-files
] with-temp-directory
]
}
Unit Test: {
{ "hello" }
[
[
"hello" "foo" utf8 set-file-contents [
"foo" [
"world" swap utf8 set-file-contents
"Noooooooo..." throw
] safe-overwrite-file
] ignore-errors "foo" utf8 file-contents
] with-temp-directory
]
}
Unit Test: {
{ "" "world" }
[
[
"hello" "foo" utf8 set-file-contents "foo"
[ utf8 [ "world" ] change-file-contents ]
safe-overwrite-file "foo" utf8 file-contents
] with-temp-directory
]
}
Unit Test: {
{ "hello" }
[
[
"hello" "foo" utf8 set-file-contents [
"foo" [
utf8 [ >upper ] change-file-contents
"Noooooooo..." throw
] safe-replace-file
] ignore-errors "foo" utf8 file-contents
] with-temp-directory
]
}
Unit Test: {
{ "hello" "HELLO" }
[
[
"hello" "foo" utf8 set-file-contents "foo"
[ utf8 [ dup >upper ] change-file-contents ]
safe-replace-file "foo" utf8 file-contents
] with-temp-directory
]
}
Unit Test: {
{ "hello" }
[
[
"hello" "foo"
[ utf8 set-file-contents ] safe-overwrite-file
"foo" utf8 file-contents
] with-temp-directory
]
}
Loading resource:basis/io/files/windows/windows-tests.factor
Unit Test: { { f } [ "\\foo" absolute-path? ] }
Unit Test: { { t } [ "\\\\?\\c:\\foo" absolute-path? ] }
Unit Test: { { t } [ "\\\\?\\c:\\" absolute-path? ] }
Unit Test: { { t } [ "\\\\?\\c:" absolute-path? ] }
Unit Test: { { t } [ "c:\\foo" absolute-path? ] }
Unit Test: { { t } [ "c:" absolute-path? ] }
Unit Test: { { t } [ "c:\\" absolute-path? ] }
Unit Test: { { f } [ "/cygdrive/c/builds" absolute-path? ] }
Unit Test: { { "c:\\foo\\" } [ "c:\\foo\\bar" parent-directory ] }
Unit Test: { { "c:\\" } [ "c:\\foo\\" parent-directory ] }
Unit Test: { { "c:\\" } [ "c:\\foo" parent-directory ] }
Unit Test: { { "c:\\" } [ "c:\\" parent-directory ] }
Unit Test: { { "Z:\\" } [ "Z:\\" parent-directory ] }
Unit Test: { { "c:" } [ "c:" parent-directory ] }
Unit Test: { { "Z:" } [ "Z:" parent-directory ] }
Unit Test: { { f } [ "" root-directory? ] }
Unit Test: { { t } [ "\\" root-directory? ] }
Unit Test: { { t } [ "\\\\" root-directory? ] }
Unit Test: { { t } [ "/" root-directory? ] }
Unit Test: { { t } [ "//" root-directory? ] }
Unit Test: { { t } [ "c:\\" trim-tail-separators root-directory? ] }
Unit Test: { { t } [ "Z:\\" trim-tail-separators root-directory? ] }
Unit Test: { { f } [ "c:\\foo" root-directory? ] }
Unit Test: { { f } [ "." root-directory? ] }
Unit Test: { { f } [ ".." root-directory? ] }
Unit Test: { { t } [ "\\\\?\\c:\\" root-directory? ] }
Unit Test: { { t } [ "\\\\?\\c:" root-directory? ] }
Unit Test: { { f } [ "\\\\?\\c:\\bar" root-directory? ] }
Unit Test: {
{ "\\\\a\\b\\c\\foo.xls" }
[ "//a/b/c/foo.xls" normalize-path ]
}
Unit Test: {
{ "\\\\a\\b\\c\\foo.xls" }
[ "\\\\a\\b\\c\\foo.xls" normalize-path ]
}
Unit Test: {
{ "\\foo\\bar" }
[ "/foo/bar" normalize-path ":" split1 nip ]
}
Unit Test: {
{ "\\\\?\\C:\\builds\\factor\\log.txt" }
[
"C:\\builds\\factor\\12345\\" "..\\log.txt" append-path
normalize-path
]
}
Unit Test: {
{ "\\\\?\\C:\\builds\\" }
[
"C:\\builds\\factor\\12345\\" "..\\.." append-path
normalize-path
]
}
Unit Test: {
{ "\\\\?\\C:\\builds\\" }
[
"C:\\builds\\factor\\12345\\" "..\\.." append-path
normalize-path
]
}
Unit Test: { { "c:\\blah" } [ "c:\\foo\\bar" "\\blah" append-path ] }
Unit Test: { { t } [ "" resource-path 2 tail file-exists? ] }
Unit Test: { { { +read-only+ +hidden+ } } [ 3 win32-file-attributes ] }
Unit Test: {
{ { 64199 1 5 f } }
[
[
"read-only.image" temp-file {
[ ?delete-file ]
[ touch-file ]
[ FILE_ATTRIBUTE_READONLY set-file-attributes ]
[ save-image ]
} cleave
] [ ] recover
]
}
Unit Test: {
{ }
[
"open-file-" "-test.txt"
[ [ open-write ] [ open-read ] bi [ dispose ] bi@ ]
cleanup-unique-file
]
}
Loading resource:basis/io/launcher/windows/windows-tests.factor
Unit Test: { { "hello world" } [ { "hello" "world" } join-arguments ] }
Unit Test: {
{ "bob \"mac arthur\"" }
[ { "bob" "mac arthur" } join-arguments ]
}
Unit Test: {
{ "bob mac\\\\arthur" }
[ { "bob" "mac\\\\arthur" } join-arguments ]
}
Unit Test: {
{ "bob \"mac arthur\\\\\"" }
[ { "bob" "mac arthur\\" } join-arguments ]
}
Unit Test: { { "\\\"hi\\\"" } [ { "\"hi\"" } join-arguments ] }
Unit Test: { { "\"\\\"hi you\\\"\"" } [ { "\"hi you\"" } join-arguments ] }
Unit Test: {
{ "\\foo\\\\bar\\\\\\bas\\" }
[ { "\\foo\\\\bar\\\\\\bas\\" } join-arguments ]
}
Unit Test: {
{ "\\\\\\\"foo\\\"\\\\bar\\\\\\bas\\" }
[ { "\\\"foo\"\\\\bar\\\\\\bas\\" } join-arguments ]
}
Unit Test: {
{ "\\foo\\\\\\\\\\\"bar\\\"\\\\\\bas\\" }
[ { "\\foo\\\\\"bar\"\\\\\\bas\\" } join-arguments ]
}
Unit Test: {
{ "\\foo\\\\bar\\\\\\\\\\\\\\\"bas\\\"\\" }
[ { "\\foo\\\\bar\\\\\\\"bas\"\\" } join-arguments ]
}
Unit Test: {
{ "\"\\foo\\\\bar bar\\\\\\bas\\\\\"" }
[ { "\\foo\\\\bar bar\\\\\\bas\\" } join-arguments ]
}
Unit Test: {
{ }
[
<process> "notepad" >>command 1/2 seconds >>timeout
"notepad" set
]
}
Unit Test: { { f } [ "notepad" get process-running? ] }
Unit Test: { { f } [ "notepad" get process-started? ] }
Unit Test: { { } [ "notepad" [ run-detached ] change ] }
Must Fail: { [ "notepad" get wait-for-process ] }
Unit Test: { { t } [ "notepad" get killed>> ] }
Unit Test: { { f } [ "notepad" get process-running? ] }
Must Fail: {
[
<process> "notepad" >>command 1/2 seconds >>timeout
try-process
]
}
Must Fail: {
[
<process> "notepad" >>command 1/2 seconds >>timeout
try-output-process
]
}
Unit Test: {
{ "Hello world" }
[
<process> console-vm-path "-run=hello-world" 2array
>>command
[ "out" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout +stdout+ >>stderr
10 seconds >>timeout +same-group+ >>group try-process
out-path get-global ascii file-lines first
]
}
Unit Test: {
{ "Hello world" }
[
<process> console-vm-path "-run=hello-world" 2array
>>command
[ "out" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout +stdout+ >>stderr
10 seconds >>timeout +new-group+ >>group try-process
out-path get-global ascii file-lines first
]
}
Unit Test: {
{ "IN: scratchpad " }
[
<process> console-vm-path "-run=listener" 2array
>>command +closed+ >>stdin +stdout+ >>stderr utf8
[ read-lines last ] with-process-reader
]
}
Unit Test: {
{ }
[
launcher-test-path [
<process> console-vm-path "-script" "stderr.factor"
3array >>command
[ "out" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout
[ "err" ".txt" unique-file ] with-temp-directory
[ err-path set-global ] keep >>stderr try-process
] with-directory
]
}
Unit Test: { { "output" } [ out-path get-global ascii file-lines first ] }
Unit Test: { { "error" } [ err-path get-global ascii file-lines first ] }
Unit Test: {
{ }
[
launcher-test-path [
<process> console-vm-path "-script" "stderr.factor"
3array >>command
[ "out" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout
+stdout+ >>stderr try-process
] with-directory
]
}
Unit Test: {
{ "outputerror" }
[ out-path get-global ascii file-lines first ]
}
Unit Test: {
{ "output" }
[
launcher-test-path [
<process> console-vm-path "-script" "stderr.factor"
3array >>command
[ "err2" ".txt" unique-file ] with-temp-directory
[ err-path set-global ] keep >>stderr
process-contents
] with-directory
]
}
Unit Test: { { "error" } [ err-path get-global ascii file-lines first ] }
Unit Test: {
{ t }
[
launcher-test-path [
<process> console-vm-path "-script" "env.factor"
3array >>command utf8
[ read-contents ] with-process-reader
] with-directory ( -- alist ) eval os-envs =
]
}
Unit Test: {
{ t }
[
launcher-test-path [
<process> console-vm-path "-script" "env.factor"
3array >>command
+replace-environment+ >>environment-mode
os-envs >>environment utf8
[ read-contents ] with-process-reader
] with-directory ( -- alist ) eval os-envs =
]
}
Unit Test: {
{ "B" }
[
launcher-test-path [
<process> console-vm-path "-script" "env.factor"
3array >>command { { "A" "B" } } >>environment utf8
[ read-contents ] with-process-reader
] with-directory ( -- alist ) eval "A" of
]
}
Unit Test: {
{ f }
[
launcher-test-path [
<process> console-vm-path "-script" "env.factor"
3array >>command
{ { "USERPROFILE" "XXX" } } >>environment
+prepend-environment+ >>environment-mode utf8
[ read-contents ] with-process-reader
] with-directory ( -- alist ) eval "USERPROFILE" of
"XXX" =
]
}
Unit Test: {
{ }
[
<process> "cmd.exe /c dir" >>command
[ "dir" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout try-process
]
}
Unit Test: { { } [ out-path get-global delete-file ] }
Unit Test: {
{ }
[
<process> "cmd.exe /c dir" >>command
[ "dir" ".txt" unique-file ] with-temp-directory
[ out-path set-global ] keep >>stdout try-process
]
}
Unit Test: { { } [ out-path get-global delete-file ] }
Unit Test: {
{
"Hello appender\r\nÖrjan ågren är åter\r\nHello appender\r\nÖrjan ågren är åter\r\n"
}
[
[ "append-test" "" unique-file ] with-temp-directory
out-path set-global 2 [
launcher-test-path [
<process> console-vm-path "-script"
"append.factor" 3array >>command
out-path get-global <appender> >>stdout
try-process
] with-directory
] times out-path get-global utf8 file-contents
]
}
Unit Test: {
{ t "This is a hidden process.\r\n" }
[
"cmd /c echo.This is a hidden process." utf8
(process-stream) hidden>> swap stream-contents
]
}
Unit Test: {
{ "IN: scratchpad " }
[
console-vm-path "-run=listener" 2array ascii
[ "quit" print flush read-lines last ]
with-process-stream
]
}
Launcher error:
Process was killed as a result of a call to
kill-process, or a timeout
Launch descriptor:
T{ process
{ command
{
"C:\\Users\\jbenedik/builds32/2026-06-19-08-34/factor/factor.com"
"-run=mason.test"
}
}
{ environment H{ } }
{ environment-mode +append-environment+ }
{ stdin +closed+ }
{ stdout "../test-log" }
{ stderr +stdout+ }
{ group +new-group+ }
{ timeout T{ duration { hour 2 } } }
{ status 255 }
{ killed t }
}