core/math/parser/parser-tests.factor

   1 USING: kernel math math.parser sequences tools.test ;
   2 IN: math.parser.tests
   3
   4 [ f ]
   5 [ f string>number ]
   6 unit-test
   7
   8 [ f ]
   9 [ "12345abcdef" string>number ]
  10 unit-test
  11
  12 [ t ]
  13 [ "-12" string>number 0 < ]
  14 unit-test
  15
  16 [ f ]
  17 [ "--12" string>number ]
  18 unit-test
  19
  20 [ f ]
  21 [ "-" string>number ]
  22 unit-test
  23
  24 [ f ]
  25 [ "e" string>number ]
  26 unit-test
  27
  28 [ "100.0" ]
  29 [ "1.0e2" string>number number>string ]
  30 unit-test
  31
  32 [ "-100.0" ]
  33 [ "-1.0e2" string>number number>string ]
  34 unit-test
  35
  36 [ "0.01" ]
  37 [ "1.0e-2" string>number number>string ]
  38 unit-test
  39
  40 [ "-0.01" ]
  41 [ "-1.0e-2" string>number number>string ]
  42 unit-test
  43
  44 [ t ]
  45 [ "-1.0e-12" string>number number>string { "-1.0e-12" "-1.0e-012" } member? ]
  46 unit-test
  47
  48 [ f ]
  49 [ "-1e-2e4" string>number ]
  50 unit-test
  51
  52 [ "3.14" ]
  53 [ "3.14" string>number number>string ]
  54 unit-test
  55
  56 [ f ]
  57 [ "." string>number ]
  58 unit-test
  59
  60 [ f ]
  61 [ ".e" string>number ]
  62 unit-test
  63
  64 [ "101.0" ]
  65 [ "1.01e2" string>number number>string ]
  66 unit-test
  67
  68 [ "-101.0" ]
  69 [ "-1.01e2" string>number number>string ]
  70 unit-test
  71
  72 [ "1.01" ]
  73 [ "101.0e-2" string>number number>string ]
  74 unit-test
  75
  76 [ "-1.01" ]
  77 [ "-101.0e-2" string>number number>string ]
  78 unit-test
  79
  80 [ f ]
  81 [ "1e1/2" string>number ]
  82 unit-test
  83
  84 [ f ]
  85 [ "e/2" string>number ]
  86 unit-test
  87
  88 [ f ] [ "12" bin> ] unit-test
  89 [ f ] [ "fdsf" bin> ] unit-test
  90 [ 3 ] [ "11" bin> ] unit-test
  91
  92 [ f ] [ "\0." string>number ] unit-test
  93
  94 [ 1 1 >base ] must-fail
  95 [ 1 0 >base ] must-fail
  96 [ 1 -1 >base ] must-fail
  97
  98 [ "0.0/0.0" ] [ 0.0 0.0 / number>string ] unit-test
  99
 100 [ "1.0/0.0" ] [ 1.0 0.0 / number>string ] unit-test
 101
 102 [ "-1.0/0.0" ] [ -1.0 0.0 / number>string ] unit-test
 103
 104 [ t ] [ "0/0." string>number fp-nan? ] unit-test
 105
 106 [ 1.0/0.0 ] [ "1/0." string>number ] unit-test
 107
 108 [ -1.0/0.0 ] [ "-1/0." string>number ] unit-test
 109
 110 [ "-0.0" ] [ -0.0 number>string ] unit-test
 111
 112 [ "-3/4" ] [ -3/4 number>string ] unit-test
 113 [ "-1-1/4" ] [ -5/4 number>string ] unit-test