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