factor/extra/mason/disk/disk-tests.factor

USING: mason.config mason.disk namespaces io.directories
io.files.temp tools.test strings sequences ;
IN: mason.disk.tests

"builds" temp-file builds-dir [
    builds-dir get make-directories

    [ t ] [ disk-usage string? ] unit-test

    [ t ] [ sufficient-disk-space? { t f } member? ] unit-test
] with-variable
mason tests didn't pass if the machine wasn't configured for running mason 2011-09-09 21:17:53 -04:00			`USING: mason.config mason.disk namespaces io.directories`
			`io.files.temp tools.test strings sequences ;`
mason: various assorted improvements - put disk usage in build report - bump minimum disk space required before starting a build from 300mb to 1gb - check repository consistency before pulling; if there are untracked files, or if the pull fails, blow away the repo and clone it again 2010-09-05 18:22:02 -04:00			`IN: mason.disk.tests`

mason tests didn't pass if the machine wasn't configured for running mason 2011-09-09 21:17:53 -04:00			`"builds" temp-file builds-dir [`
			`builds-dir get make-directories`
mason: various assorted improvements - put disk usage in build report - bump minimum disk space required before starting a build from 300mb to 1gb - check repository consistency before pulling; if there are untracked files, or if the pull fails, blow away the repo and clone it again 2010-09-05 18:22:02 -04:00
mason tests didn't pass if the machine wasn't configured for running mason 2011-09-09 21:17:53 -04:00			`[ t ] [ disk-usage string? ] unit-test`

			`[ t ] [ sufficient-disk-space? { t f } member? ] unit-test`
			`] with-variable`