! 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