extra/units/reduction/reduction-tests.factor

   1 ! Copyright (C) 2011 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators fry kernel locals math math.functions
   4 math.order math.parser sequences tools.test ;
   5 IN: units.reduction
   6
   7 [ "0Bi" ] [ 0 n>storage ] unit-test
   8 [ "0B" ] [ 0 n>Storage ] unit-test
   9 [ "0Bi" ] [ -0 n>storage ] unit-test
  10 [ "0B" ] [ -0 n>Storage ] unit-test
  11 [ "1000Bi" ] [ 1,000 n>storage ] unit-test
  12 [ "1K" ] [ 1,000 n>Storage ] unit-test
  13 [ "976Ki" ] [ 1,000,000 n>storage ] unit-test
  14 [ "1Mi" ] [ 2,000,000 n>storage ] unit-test
  15 [ "190Mi" ] [ 200,000,000 n>storage ] unit-test
  16 [ "1M" ] [ 1,000,000 n>Storage ] unit-test
  17 [ "953Mi" ] [ 1,000,000,000 n>storage ] unit-test
  18 [ "1G" ] [ 1,000,000,000 n>Storage ] unit-test
  19 [ "931Gi" ] [ 1,000,000,000,000 n>storage ] unit-test
  20 [ "1T" ] [ 1,000,000,000,000 n>Storage ] unit-test
  21 [ "909Ti" ] [ 1,000,000,000,000,000 n>storage ] unit-test
  22 [ "1P" ] [ 1,000,000,000,000,000 n>Storage ] unit-test
  23 [ "888Pi" ] [ 1,000,000,000,000,000,000 n>storage ] unit-test
  24 [ "1E" ] [ 1,000,000,000,000,000,000 n>Storage ] unit-test
  25 [ "-1E" ] [ -1,000,000,000,000,000,000 n>Storage ] unit-test
  26
  27 : test-n>storage ( string -- string ) n>storage storage>n n>storage ;
  28 : test-n>Storage ( string -- string ) n>Storage storage>n n>Storage ;
  29
  30 [ "0Bi" ] [ 0 test-n>storage ] unit-test
  31 [ "0B" ] [ 0 test-n>Storage ] unit-test
  32 [ "0Bi" ] [ -0 test-n>storage ] unit-test
  33 [ "0B" ] [ -0 test-n>Storage ] unit-test
  34 [ "1000Bi" ] [ 1,000 test-n>storage ] unit-test
  35 [ "1K" ] [ 1,000 test-n>Storage ] unit-test
  36 [ "976Ki" ] [ 1,000,000 test-n>storage ] unit-test
  37 [ "1Mi" ] [ 2,000,000 test-n>storage ] unit-test
  38 [ "190Mi" ] [ 200,000,000 test-n>storage ] unit-test
  39 [ "1M" ] [ 1,000,000 test-n>Storage ] unit-test
  40 [ "953Mi" ] [ 1,000,000,000 test-n>storage ] unit-test
  41 [ "1G" ] [ 1,000,000,000 test-n>Storage ] unit-test
  42 [ "931Gi" ] [ 1,000,000,000,000 test-n>storage ] unit-test
  43 [ "1T" ] [ 1,000,000,000,000 test-n>Storage ] unit-test
  44 [ "909Ti" ] [ 1,000,000,000,000,000 test-n>storage ] unit-test
  45 [ "1P" ] [ 1,000,000,000,000,000 test-n>Storage ] unit-test
  46 [ "888Pi" ] [ 1,000,000,000,000,000,000 test-n>storage ] unit-test
  47 [ "1E" ] [ 1,000,000,000,000,000,000 test-n>Storage ] unit-test
  48 [ "-1E" ] [ -1,000,000,000,000,000,000 test-n>Storage ] unit-test
  49
  50 [ "abc" storage>n ] [ bad-storage-string?  ] must-fail-with
  51 [ "-abc" storage>n ] [ bad-storage-string?  ] must-fail-with
  52 [ "10" storage>n ] [ bad-storage-string?  ] must-fail-with
  53 [ "10b" storage>n ] [ bad-storage-string?  ] must-fail-with
  54 [ "10Mib" storage>n ] [ bad-storage-string?  ] must-fail-with
  55 [ "asdfBi" storage>n ] [ bad-storage-string?  ] must-fail-with
  56 [ "asdfB" storage>n ] [ bad-storage-string?  ] must-fail-with