steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/extra/units/reduction/reduction-tests.factor

57 lines
2.6 KiB
Factor
Raw Normal View History

Vocabulary to reduce numbers to more convenient representations
2011-09-16 22:37:39 -04:00
! 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
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!" Needs a bit more work. This reverts commit 7e54cc28240d384ca71529dab464ea9cddbabf07.
2015-07-02 16:37:42 -04:00
[ "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
Vocabulary to reduce numbers to more convenient representations
2011-09-16 22:37:39 -04:00
: test-n>storage ( string -- string ) n>storage storage>n n>storage ;
: test-n>Storage ( string -- string ) n>Storage storage>n n>Storage ;
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!" Needs a bit more work. This reverts commit 7e54cc28240d384ca71529dab464ea9cddbabf07.
2015-07-02 16:37:42 -04:00
[ "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
Vocabulary to reduce numbers to more convenient representations
2011-09-16 22:37:39 -04:00
[ "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