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

mason tests didn't pass if the machine wasn't configured for running mason

db4
Slava Pestov 2011-09-09 18:17:53 -07:00
parent 1b20b0c476
commit 2f6b98a141
2 changed files with 29 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/mason/disk/disk-tests.factor
View File

@ -1,6 +1,11 @@
USING: mason.disk tools.test strings sequences ;
USING: mason.config mason.disk namespaces io.directories
io.files.temp tools.test strings sequences ;
IN: mason.disk.tests
[ t ] [ disk-usage string? ] unit-test
"builds" temp-file builds-dir [
builds-dir get make-directories
[ t ] [ sufficient-disk-space? { t f } member? ] unit-test
[ t ] [ disk-usage string? ] unit-test
[ t ] [ sufficient-disk-space? { t f } member? ] unit-test
] with-variable

40
extra/mason/report/report-tests.factor
View File

@ -1,6 +1,6 @@
IN: mason.report.tests
USING: io.files io.directories kernel mason.report mason.common
tools.test xml xml.writer ;
USING: io.files io.files.temp io.directories kernel mason.report
mason.common mason.config namespaces tools.test xml xml.writer ;
{ 0 0 } [ [ ] with-report ] must-infer-as
@ -9,20 +9,22 @@ tools.test xml xml.writer ;
[ ] [ "report" file>xml drop ] unit-test
[ ] [ "report" delete-file ] unit-test ;
"resource:extra/mason/report/fake-data/" [
[ ] [
timings-table pprint-xml
] unit-test
[ ] [ successful-report ] unit-test
verify-report
[ status-error ] [ 1234 compile-failed ] unit-test
verify-report
[ status-error ] [ 1235 boot-failed ] unit-test
verify-report
[ status-error ] [ 1236 test-failed ] unit-test
verify-report
] with-directory
"builds" temp-file builds-dir [
"resource:extra/mason/report/fake-data/" [
[ ] [
timings-table pprint-xml
] unit-test
[ ] [ successful-report ] unit-test
verify-report
[ status-error ] [ 1234 compile-failed ] unit-test
verify-report
[ status-error ] [ 1235 boot-failed ] unit-test
verify-report
[ status-error ] [ 1236 test-failed ] unit-test
verify-report
] with-directory
] with-variable