extra/taxes/taxes-tests.factor

   1 USING: kernel money taxes tools.test ;
   2 IN: taxes.tests
   3
   4 [
   5     426 23
   6 ] [
   7     12000 2008 3 f <w4> <federal> net biweekly
   8     dollars/cents
   9 ] unit-test
  10
  11 [
  12     426 23
  13 ] [
  14     12000 2008 3 t <w4> <federal> net biweekly
  15     dollars/cents
  16 ] unit-test
  17
  18 [
  19     684 4
  20 ] [
  21     20000 2008 3 f <w4> <federal> net biweekly
  22     dollars/cents
  23 ] unit-test
  24
  25
  26
  27 [
  28     804 58
  29 ] [
  30     24000 2008 3 f <w4> <federal> net biweekly
  31     dollars/cents
  32 ] unit-test
  33
  34 [
  35     831 31
  36 ] [
  37     24000 2008 3 t <w4> <federal> net biweekly
  38     dollars/cents
  39 ] unit-test
  40
  41
  42 [
  43     780 81
  44 ] [
  45     24000 2008 3 f <w4> <minnesota> net biweekly
  46     dollars/cents
  47 ] unit-test
  48
  49 [
  50     818 76
  51 ] [
  52     24000 2008 3 t <w4> <minnesota> net biweekly
  53     dollars/cents
  54 ] unit-test
  55
  56
  57 [
  58     2124 39
  59 ] [
  60     78250 2008 3 f <w4> <minnesota> net biweekly
  61     dollars/cents
  62 ] unit-test
  63
  64 [
  65     2321 76
  66 ] [
  67     78250 2008 3 t <w4> <minnesota> net biweekly
  68     dollars/cents
  69 ] unit-test
  70
  71
  72 [
  73     2612 63
  74 ] [
  75     100000 2008 3 f <w4> <minnesota> net biweekly
  76     dollars/cents
  77 ] unit-test
  78
  79 [
  80     22244 52
  81 ] [
  82     1000000 2008 3 f <w4> <minnesota> net biweekly
  83     dollars/cents
  84 ] unit-test
  85
  86 [
  87     578357 40
  88 ] [
  89     1000000 2008 3 f <w4> <minnesota> net
  90     dollars/cents
  91 ] unit-test
  92
  93 [
  94     588325 41
  95 ] [
  96     1000000 2008 3 t <w4> <minnesota> net
  97     dollars/cents
  98 ] unit-test
  99
 100
 101 [ 30 97 ] [
 102     24000 2008 2 f <w4> <minnesota> withholding biweekly dollars/cents
 103 ] unit-test
 104
 105 [ 173 66 ] [
 106     78250 2008 2 f <w4> <minnesota> withholding biweekly dollars/cents
 107 ] unit-test
 108
 109
 110 [ 138 69 ] [
 111     24000 2008 2 f <w4> <federal> withholding biweekly dollars/cents
 112 ] unit-test
 113
 114 [ 754 72 ] [
 115     78250 2008 2 f <w4> <federal> withholding biweekly dollars/cents
 116 ] unit-test