small-enough? ( n -- )

Vocabulary

tools.deploy.test

Inputs

n

an object

Outputs

None

Definition

USING: accessors io.files.info kernel layouts math system ;

IN: tools.deploy.test

: small-enough? ( n -- )
    [ test-image-path file-info size>> ] [
        cell 4 / * cpu ppc? [ 100000 + ] when os windows?
        [ 160000 + ] when
    ] bi* 2dup <= [ 2drop ] [ image-too-big ] if ;