tests/testthat/test_standardize_payment_names.R

context("standardize payment names") 

test_that("pension", {
  expect_equal(standardize_payment_names("age pension"), 
               "age pension")
  expect_equal(standardize_payment_names(c("age pension", 
                                           "age pension", 
                                           "nsa", 
                                           "age pension",
                                           "nsa")), 
               c("age pension", 
                 "age pension", 
                 "newstart allowance",
                 "age pension",
                 "newstart allowance"))
})

Try the grattan package in your browser

Any scripts or data that you put into this service are public.

grattan documentation built on Sept. 4, 2023, 5:08 p.m.