57 lines
2.6 KiB
Factor
57 lines
2.6 KiB
Factor
! Copyright (C) 2011 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: combinators fry kernel locals math math.functions
|
|
math.order math.parser sequences tools.test ;
|
|
IN: units.reduction
|
|
|
|
[ "0Bi" ] [ 0 n>storage ] unit-test
|
|
[ "0B" ] [ 0 n>Storage ] unit-test
|
|
[ "0Bi" ] [ -0 n>storage ] unit-test
|
|
[ "0B" ] [ -0 n>Storage ] unit-test
|
|
[ "1000Bi" ] [ 1,000 n>storage ] unit-test
|
|
[ "1K" ] [ 1,000 n>Storage ] unit-test
|
|
[ "976Ki" ] [ 1,000,000 n>storage ] unit-test
|
|
[ "1Mi" ] [ 2,000,000 n>storage ] unit-test
|
|
[ "190Mi" ] [ 200,000,000 n>storage ] unit-test
|
|
[ "1M" ] [ 1,000,000 n>Storage ] unit-test
|
|
[ "953Mi" ] [ 1,000,000,000 n>storage ] unit-test
|
|
[ "1G" ] [ 1,000,000,000 n>Storage ] unit-test
|
|
[ "931Gi" ] [ 1,000,000,000,000 n>storage ] unit-test
|
|
[ "1T" ] [ 1,000,000,000,000 n>Storage ] unit-test
|
|
[ "909Ti" ] [ 1,000,000,000,000,000 n>storage ] unit-test
|
|
[ "1P" ] [ 1,000,000,000,000,000 n>Storage ] unit-test
|
|
[ "888Pi" ] [ 1,000,000,000,000,000,000 n>storage ] unit-test
|
|
[ "1E" ] [ 1,000,000,000,000,000,000 n>Storage ] unit-test
|
|
[ "-1E" ] [ -1,000,000,000,000,000,000 n>Storage ] unit-test
|
|
|
|
: test-n>storage ( string -- string ) n>storage storage>n n>storage ;
|
|
: test-n>Storage ( string -- string ) n>Storage storage>n n>Storage ;
|
|
|
|
[ "0Bi" ] [ 0 test-n>storage ] unit-test
|
|
[ "0B" ] [ 0 test-n>Storage ] unit-test
|
|
[ "0Bi" ] [ -0 test-n>storage ] unit-test
|
|
[ "0B" ] [ -0 test-n>Storage ] unit-test
|
|
[ "1000Bi" ] [ 1,000 test-n>storage ] unit-test
|
|
[ "1K" ] [ 1,000 test-n>Storage ] unit-test
|
|
[ "976Ki" ] [ 1,000,000 test-n>storage ] unit-test
|
|
[ "1Mi" ] [ 2,000,000 test-n>storage ] unit-test
|
|
[ "190Mi" ] [ 200,000,000 test-n>storage ] unit-test
|
|
[ "1M" ] [ 1,000,000 test-n>Storage ] unit-test
|
|
[ "953Mi" ] [ 1,000,000,000 test-n>storage ] unit-test
|
|
[ "1G" ] [ 1,000,000,000 test-n>Storage ] unit-test
|
|
[ "931Gi" ] [ 1,000,000,000,000 test-n>storage ] unit-test
|
|
[ "1T" ] [ 1,000,000,000,000 test-n>Storage ] unit-test
|
|
[ "909Ti" ] [ 1,000,000,000,000,000 test-n>storage ] unit-test
|
|
[ "1P" ] [ 1,000,000,000,000,000 test-n>Storage ] unit-test
|
|
[ "888Pi" ] [ 1,000,000,000,000,000,000 test-n>storage ] unit-test
|
|
[ "1E" ] [ 1,000,000,000,000,000,000 test-n>Storage ] unit-test
|
|
[ "-1E" ] [ -1,000,000,000,000,000,000 test-n>Storage ] unit-test
|
|
|
|
[ "abc" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "-abc" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "10" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "10b" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "10Mib" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "asdfBi" storage>n ] [ bad-storage-string? ] must-fail-with
|
|
[ "asdfB" storage>n ] [ bad-storage-string? ] must-fail-with
|