inst/tinytest/test_THE.R

In healthyAddress: Convert Addresses to Standard Inputs

library(tinytest)
the__ <- healthyAddress:::the__
get_the_XXX <- healthyAddress:::get_the_XXX
expect_equal(the__("ABC"), 0)
expect_equal(the__("THE"), 0)
expect_equal(healthyAddress:::the__("THE GAP"), HashStreetName("THE GAP"))

expect_equal(the__(c("1/1 THE RIGHI SOUTH YARRA VIC 3000",
                     "2/2 THE OAKS THE GAP")),
            HashStreetName(c("THE RIGHI", "THE OAKS")))

expect_equal(the__("90 THE OLD STOCK RUN, SUNBURY, VIC, 3429"),
             HashStreetName("THE OLD STOCK RUN"))

expect_true(is.character(the_XXX <- get_the_XXX()))
expect_true("ESPLANADE" %in% the_XXX)
expect_true("ENTRANCE" %in% the_XXX[get_the_XXX(FALSE)])