extra/taxes/usa/usa-tests.factor

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