Build report for macosx/x86.64
Tests failed
Build output:
}
}
}
}
[ " 3 factorial + 4 factorial" test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver 3 }
{ selector "factorial" }
}
}
{ selector "+" }
{ arguments
{
T{ ast-message-send
{ receiver 4 }
{ selector "factorial" }
}
}
}
}
}
[ " 3 factorial + 4 factorial " test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver 3 }
{ selector "factorial" }
}
}
{ selector "+" }
{ arguments { 4 } }
}
}
{ selector "factorial" }
}
}
[ "(3 factorial + 4) factorial" test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver 1 }
{ selector "<" }
{ arguments ~array~ }
}
}
{ selector "ifTrue:ifFalse:" }
{ arguments
{
T{ ast-block { body ~array~ } }
T{ ast-block { body ~array~ } }
}
}
}
}
{ selector "print" }
}
}
[
"((1 < 10) ifTrue: [ 'HI' ] ifFalse: [ 'BYE' ]) print"
test-Expression
]
}
Unit Test: {
{
T{ ast-cascade
{ receiver 12 }
{ messages
{
T{ ast-message { selector "sqrt" } }
T{ ast-message
{ selector "+" }
{ arguments { 2 } }
}
}
}
}
}
[ "12 sqrt; + 2" test-Expression ]
}
Unit Test: {
{
T{ ast-cascade
{ receiver
T{ ast-message-send
{ receiver 12 }
{ selector "sqrt" }
}
}
{ messages
{
T{ ast-message
{ selector "+" }
{ arguments { 1 } }
}
T{ ast-message
{ selector "+" }
{ arguments { 2 } }
}
}
}
}
}
[ "12 sqrt + 1; + 2" test-Expression ]
}
Unit Test: {
{
T{ ast-cascade
{ receiver
T{ ast-message-send
{ receiver 12 }
{ selector "squared" }
}
}
{ messages
{
T{ ast-message
{ selector "to:" }
{ arguments { 100 } }
}
T{ ast-message { selector "sqrt" } }
}
}
}
}
[ "12 squared to: 100; sqrt" test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver 1 }
{ selector "+" }
{ arguments { 2 } }
}
}
{ selector "*" }
{ arguments { 3 } }
}
}
[ "1+2*3" test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver
{ T{ ast-block { body ~array~ } } }
}
{ selector "at:" }
{ arguments { 0 } }
}
}
{ selector "value" }
}
}
[ "(#(['a']) at: 0) value" test-Expression ]
}
Unit Test: {
{ T{ ast-name { name "value" } } }
[ "value" test-FinalStatement ]
}
Unit Test: {
{ T{ ast-return { value T{ ast-name { name "value" } } } } }
[ "^value" test-FinalStatement ]
}
Unit Test: {
{
T{ ast-assignment
{ name T{ ast-name { name "value" } } }
{ value 5 }
}
}
[ "value:=5" test-FinalStatement ]
}
Unit Test: {
{ T{ ast-local-variables { names { "i" "j" } } } }
[ " | i j |" test-LocalVariableDeclarationList ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver T{ ast-name { name "x" } } }
{ selector "foo:bar:" }
{ arguments { 1 2 } }
}
}
[ "x foo:1 bar:2" test-Expression ]
}
Unit Test: {
{
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver
T{ ast-message-send
{ receiver 3 }
{ selector "factorial" }
}
}
{ selector "+" }
{ arguments
{
T{ ast-message-send
{ receiver 4 }
{ selector "factorial" }
}
}
}
}
}
{ selector "between:and:" }
{ arguments { 10 100 } }
}
}
[
"3 factorial + 4 factorial between: 10 and: 100"
test-Expression
]
}
Unit Test: {
{ T{ ast-sequence { body { 1 2 } } } }
[ "1. 2" parse-smalltalk ]
}
Unit Test: {
{ T{ ast-sequence { body { 1 2 } } } }
[ "1. 2." parse-smalltalk ]
}
Unit Test: {
{
T{ ast-sequence
{ body
{
T{ ast-class
{ name "Test" }
{ superclass "Object" }
{ ivars { "a" } }
}
}
}
}
}
[ "class Test [|a|]" parse-smalltalk ]
}
Unit Test: {
{
T{ ast-sequence
{ body
{
T{ ast-class
{ name "Test1" }
{ superclass "Object" }
{ ivars { "a" } }
}
T{ ast-class
{ name "Test2" }
{ superclass "Test1" }
{ ivars { "b" } }
}
}
}
}
}
[
"class Test1 [|a|]. class Test2 extends Test1 [|b|]"
parse-smalltalk
]
}
Unit Test: { { } [ "class Foo []. Tests blah " parse-smalltalk drop ] }
Unit Test: {
{ }
[
"vocab:smalltalk/parser/test.st" ascii file-contents
parse-smalltalk drop
]
}
Unit Test: { { } [ "_abc_" parse-smalltalk drop ] }
Loading resource:extra/smalltalk/printer/printer-tests.factor
Unit Test: { { "#((1 2) 'hi')" } [ { { 1 2 } "hi" } smalltalk>string ] }
Loading resource:basis/smtp/smtp-tests.factor
Must Infer As: { { 0 0 } [ [ ] with-smtp-connection ] }
Must Fail: { [ "hello\nworld" validate-address ] }
Unit Test: {
{ "slava@factorcode.org" }
[ "slava@factorcode.org" validate-address ]
}
Unit Test: {
{ "aGVsbG8Kd29ybGQ=\r\n.\r\n" }
[
T{ email { body "hello\nworld" } } [ send-body ]
with-string-writer
]
}
Must Fail With: {
[ { "500 syntax error" } <response> check-response ]
[ smtp-error? ]
}
Unit Test: { { } [ { "220 success" } <response> check-response ] }
Unit Test: {
{
T{ response
{ code 220 }
{ messages { "220 success" } }
}
}
[ "220 success" [ receive-response ] with-string-reader ]
}
Unit Test: {
{
T{ response
{ code 220 }
{ messages
{
"220-a multiline response"
"250-another line"
"220 the end"
}
}
}
}
[
"220-a multiline response\r\n250-another line\r\n220 the end"
[ receive-response ] with-string-reader
]
}
Unit Test: {
{ }
[
"220-a multiline response\r\n250-another line\r\n220 the end"
[ get-ok ] with-string-reader
]
}
Must Fail: { [ "Subject:\r\nsecurity hole" validate-header ] }
Unit Test: {
{
{
{ "Content-Transfer-Encoding" "base64" }
{ "Content-Type" "text/plain; charset=UTF-8" }
{ "From" "Doug <erg@factorcode.org>" }
{ "MIME-Version" "1.0" }
{ "Subject" "Factor rules" }
{
"To"
"Slava <slava@factorcode.org>, Ed <dharmatech@factorcode.org>"
}
}
{ "slava@factorcode.org" "dharmatech@factorcode.org" }
"erg@factorcode.org"
}
[
[
<email> "Factor rules" >>subject {
"Slava <slava@factorcode.org>"
"Ed <dharmatech@factorcode.org>"
} >>to "Doug <erg@factorcode.org>" >>from {
[
email>headers sort-keys
[ drop { "Date" "Message-Id" } member? not ]
assoc-filter
]
[ to>> [ extract-email ] map ]
[ from>> extract-email ]
[ [ send-email ] curry ignore-errors ]
} cleave
] with-test-smtp-config
]
}
Error in thread 357 (Thread, [ ~array~ set-datastack ~promise~ 1 load-locals 0 get-local...):
no-tls-supported
(U) Quotation: [ set-namestack init-catchstack self quot>> call => stop ]
(U) Quotation: [ <test-secure-config> => swap with-secure-context ]
Word: with-test-context
(O) Word: <test-secure-config>
(O) Word: best-tls-method
(O) Word: no-tls-supported
(O) Method: M\ object throw
(U) Quotation: [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
Launcher error:
Process was killed as a result of a call to
kill-process, or a timeout
Launch descriptor:
T{ process
{ command { "./factor" "-run=mason.test" } }
{ environment H{ } }
{ environment-mode +append-environment+ }
{ stdin +closed+ }
{ stdout "../test-log" }
{ stderr +stdout+ }
{ group +new-group+ }
{ timeout T{ duration { hour 6 } } }
{ status T{ signal { n 15 } } }
{ killed t }
}