tests/testthat/test-liability_tax.R

In p0bs/p0bservations: Assorted Functions and Observations by P0bs

test_that("error checks work", {
  
  expect_error(
    liability_tax(
      income_taxable = "15000",
      tax_year_end = 2024L
    )
  )

  expect_error(
    liability_tax(
      income_taxable = c(9000, 29000),
      tax_year_end = 2024
    )
  )
  
  expect_error(
    liability_tax(
      income_taxable = -20000,
      tax_year_end = 2024
    )
  )
  
})

test_that("calculations work", {
  
  expect_true(
    is.numeric(
      liability_tax(
        income_taxable = 20000,
        tax_year_end = 2024
      )$income_net
    )
  )
  
  expect_equal(
    object = liability_tax(
      income_taxable = 8000,
      tax_year_end = 2024
      )$total_tax, 
    expected = 0, 
    tolerance = 0.001
  )
  
  # Calculations taken from a third-party app
  
  expect_equal(
    object = liability_tax(
      income_taxable = 22000, 
      tax_year_end = 2024
    )$income_net,
    expected = 18984.08, 
    tolerance = 0.001
  )
  
  expect_equal(
    object = liability_tax(
      income_taxable = 40000, 
      tax_year_end = 2024
      )$total_tax,
    expected = 40000 - 31224.08, 
    tolerance = 0.001
  )
  
  expect_equal(
    object = liability_tax(
      income_taxable = 65000, 
      tax_year_end = 2024
    )$total_tax,
    expected = 65000 - 46749.68, 
    tolerance = 0.001
  )
  
  expect_equal(
    object = liability_tax(
      income_taxable = 105000, 
      tax_year_end = 2024
    )$total_tax,
    expected = 105000 - 68949.68, 
    tolerance = 0.001
  )
  
  expect_equal(
    object = liability_tax(
      income_taxable = 160000, 
      tax_year_end = 2024
    )$total_tax,
    expected = 160000 - 95078, 
    tolerance = 0.001
  )
  
})