tests/testthat/test-get_properties.R

In tidywikidatar: Explore 'Wikidata' Through Tidy Data Frames

# run only in interactive sessions due to occasion change of responses from API
if (interactive()) {
  library("testthat")
  test_that("check if property are returned correctly when more than 1 id and one property", {
    testthat::skip_if_offline()

    expect_equal(
      object = {
        tw_disable_cache()
        tw_get_property(
          id = c(
            "Q180099",
            "Q228822"
          ),
          p = "P31"
        ) %>%
          dplyr::pull(value)
      },
      expected = c(
        c("Q5", "Q5")
      )
    )
  })

  test_that("check if property are returned correctly and in the same as order as given when 1 id and more than one property", {
    testthat::skip_if_offline()

    expect_equal(
      object = {
        tw_disable_cache()
        tw_get_property(
          id = "Q180099",
          p = c("P31", "P27")
        ) %>%
          dplyr::pull(value)
      },
      expected = c(
        c("Q5", "Q30")
      )
    )

    expect_equal(
      object = {
        tw_disable_cache()
        tw_get_property(
          id = "Q180099",
          p = c("P27", "P31")
        ) %>%
          dplyr::pull(value)
      },
      expected = c(
        c("Q30", "Q5")
      )
    )
  })

  test_that("check if tw_get_property with invalid identifiers", {
    testthat::skip_if_offline()

    expect_true(object = {
      tw_disable_cache()
      tw_get_property(
        id = "non_qid_string",
        p = "P27"
      ) %>%
        is.null()
    })

    expect_true(object = {
      tw_disable_cache()
      tw_get_property_same_length(
        id = "non_qid_string",
        p = "P27"
      ) %>%
        is.na()
    })
  })

  test_that("check if property labels are returned correctly", {
    testthat::skip_if_offline()

    expect_equal(
      object = {
        tw_get_property_label(property = "P31")
      },
      expected = c(
        "instance of"
      )
    )

    expect_equal(
      object = {
        tw_get_property_label(property = c("P31", "P361"))
      },
      expected = c(
        "instance of",
        "part of"
      )
    )
  })

  test_that("check if property labels are returned correctly with cache", {
    testthat::skip_if_offline()

    expect_equal(
      object = {
        tw_set_cache_folder(path = tempdir())
        tw_enable_cache()
        tw_get_property_label(property = "P31")
      },
      expected = c(
        "instance of"
      )
    )

    expect_equal(
      object = {
        tw_set_cache_folder(path = tempdir())
        tw_get_property_label(property = c("P31", "P361"))
      },
      expected = c(
        "instance of",
        "part of"
      )
    )

    expect_equal(
      object = {
        tw_set_cache_folder(path = tempdir())
        tw_get_property_label(property = c("P31", "P361", "non_id_string", NA))
      },
      expected = c(
        "instance of",
        "part of",
        NA,
        NA
      )
    )
  })

  test_that("check if property descriptions are returned correctly", {
    testthat::skip_if_offline()

    expect_true(object = {
      tw_disable_cache()
      result <- tw_get_property_description(property = "P31")

      stringr::str_starts(string = result, pattern = "that class of")
    })

    expect_equal(
      object = {
        tw_disable_cache()
        tw_get_property_description(property = c("P31", "P361")) %>%
          stringr::word(end = 3)
      },
      expected = c(
        "that class of",
        "object of which"
      )
    )
  })

  test_that("check if property descriptions are returned correctly with cache", {
    testthat::skip_if_offline()

    expect_true(object = {
      tw_set_cache_folder(path = tempdir())
      tw_enable_cache()
      result <- tw_get_property_description(property = "P31")

      stringr::str_starts(string = result, pattern = "that class of which")
    })

    expect_equal(
      object = {
        tw_disable_cache()
        tw_get_property_description(property = c("P31", "P361")) %>%
          stringr::word(end = 3)
      },
      expected = c(
        "that class of",
        "object of which"
      )
    )
  })

  test_that("check if property are returned correctly when multiple NA included", {
    testthat::skip_if_offline()

    expect_equal(
      object = {
        tw_get_property_same_length(
          id = c("Q180099", NA, "Q228822", NA),
          p = "P31",
          only_first = FALSE
        ) %>%
          unlist() %>%
          is.na() %>%
          sum()
      },
      expected = 2
    )
  })
}