tests/testthat/test-pre-processing-results-data.R

In konradzdeb/SmarterScotland: Source Public Data from statistics.gov.scot

context("Pre-processing SPARQL results data")

test_that(desc = "Errores on wrong object",
          code = {
            expect_error(object = pre_process_data(x = 1))
            expect_error(object = pre_process_data(x = data.frame()))
          })

test_that(desc = "URI strings are removed",
          code = {
            expect_false(object = any(
              grepl(pattern =  "http://purl.org/linked-data/cube",
                    x = pre_process_data(x = data.frame(
                      column_w_URIs = c(
                        "http://purl.org/linked-data/cube#Observation",
                        "http://purl.org/linked-data/cube#Observation",
                        "http://purl.org/linked-data/cube#Observation",
                        "http://purl.org/linked-data/cube#Observation"
                      )
                    )))
            ))
          })

test_that(desc = "Column removal works",
          code = {
            tst_dta <-
              data.frame(
                uri_col = rep.int(x = "uri", times = 10),
                colB = 1:10,
                colC = 11:20
              )
            res_obj_cols <- pre_process_data(x = tst_dta,
                                             remove_cols = TRUE)
            expect_length(object = res_obj_cols, n = 2)
            expect_is(object = res_obj_cols, class = class(tst_dta))
          })

test_that(desc = "Column names are cleaned.",
          code = {
            tst_df <- data.frame(columnA.value = 1:3,
                                 columnB.value = 1.3)
            cln_df <-
              pre_process_data(x = tst_df, clean_column_names = TRUE)
            expect_false(object = any(grepl(
              pattern = "\\.value", x = names(cln_df)
            )))
          })

test_that(desc = "Column conversion works",
          code = {
            test_data <- data.frame(
              colA = c("1", "2", "3"),
              colB = c("1.1", "1.2", "1.3"),
              colC = c("123,454.3", "123,45", "1234,567"),
              colD = LETTERS[1:3],
              stringsAsFactors = FALSE
            )
            expected_data <- data.frame(
              colA = c(1, 2, 3),
              colB = c(1.1, 1.2, 1.3),
              colC = c(123454.3, 12345, 1234567),
              colD = LETTERS[1:3],
              stringsAsFactors = FALSE
            )
            expect_equal(
              object = pre_process_data(x = test_data),
              expected = expected_data,
              check.attributes = FALSE
            )
          })