tests/testthat/test-DKIJakarta_tbl_df.R

In IndonesiAPIs: Access Indonesian Data via Public APIs and Curated Datasets

# IndonesiAPIs - Access Indonesian Data via Public APIs and Curated Datasets
# Version 0.1.0
# Copyright (c) 2025 Renzo Caceres Rossi
# Licensed under the MIT License.
# See the LICENSE file in the root directory for full license text.

# DKIJakarta_tbl_df

library(testthat)

# Test 1: Confirm the object exists
test_that("DKIJakarta_tbl_df exists", {
  expect_true(exists("DKIJakarta_tbl_df"))
})

# Test 2: Confirm the object is a tibble
test_that("DKIJakarta_tbl_df is a tibble", {
  expect_s3_class(DKIJakarta_tbl_df, "tbl_df")
  expect_s3_class(DKIJakarta_tbl_df, "tbl")
  expect_s3_class(DKIJakarta_tbl_df, "data.frame")
})

# Test 3: Confirm it has exactly 32 columns
test_that("DKIJakarta_tbl_df has 32 columns", {
  expect_equal(length(DKIJakarta_tbl_df), 32)
})

# Test 4: Confirm it has exactly 1043 rows
test_that("DKIJakarta_tbl_df has 1043 rows", {
  expect_equal(nrow(DKIJakarta_tbl_df), 1043)
})

# Test 5: Confirm column names are correct and in order
test_that("DKIJakarta_tbl_df has correct column names", {
  expect_named(DKIJakarta_tbl_df, c(
    "Tanggal", "Beras", "Beras Kualitas Bawah I", "Beras Kualitas Bawah II",
    "Beras Kualitas Medium I", "Beras Kualitas Medium II", "Beras Kualitas Super I",
    "Beras Kualitas Super II", "Daging Ayam", "Daging Ayam Ras Segar",
    "Daging Sapi", "Daging Sapi Kualitas 1", "Daging Sapi Kualitas 2",
    "Telur Ayam", "Telur Ayam Ras Segar", "Bawang Merah",
    "Bawang Merah Ukuran Sedang", "Bawang Putih", "Bawang Putih Ukuran Sedang",
    "Cabai Merah", "Cabai Merah Besar", "Cabai Merah Keriting",
    "Cabai Rawit", "Cabai Rawit Hijau", "Cabai Rawit Merah",
    "Minyak Goreng", "Minyak Goreng Curah", "Minyak Goreng Kemasan Bermerk 1",
    "Minyak Goreng Kemasan Bermerk 2", "Gula Pasir",
    "Gula Pasir Kualitas Premium", "Gula Pasir Lokal"
  ))
})

# Test 6: Confirm column types are correct
test_that("DKIJakarta_tbl_df columns have correct types", {
  expect_type(DKIJakarta_tbl_df$Tanggal, "character")
  expect_type(DKIJakarta_tbl_df$Beras, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Bawah I`, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Bawah II`, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Medium I`, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Medium II`, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Super I`, "double")
  expect_type(DKIJakarta_tbl_df$`Beras Kualitas Super II`, "double")
  expect_type(DKIJakarta_tbl_df$`Daging Ayam`, "double")
  expect_type(DKIJakarta_tbl_df$`Daging Ayam Ras Segar`, "double")
  expect_type(DKIJakarta_tbl_df$`Daging Sapi`, "double")
  expect_type(DKIJakarta_tbl_df$`Daging Sapi Kualitas 1`, "double")
  expect_type(DKIJakarta_tbl_df$`Daging Sapi Kualitas 2`, "double")
  expect_type(DKIJakarta_tbl_df$`Telur Ayam`, "double")
  expect_type(DKIJakarta_tbl_df$`Telur Ayam Ras Segar`, "double")
  expect_type(DKIJakarta_tbl_df$`Bawang Merah`, "double")
  expect_type(DKIJakarta_tbl_df$`Bawang Merah Ukuran Sedang`, "double")
  expect_type(DKIJakarta_tbl_df$`Bawang Putih`, "double")
  expect_type(DKIJakarta_tbl_df$`Bawang Putih Ukuran Sedang`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Merah`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Merah Besar`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Merah Keriting`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Rawit`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Rawit Hijau`, "double")
  expect_type(DKIJakarta_tbl_df$`Cabai Rawit Merah`, "double")
  expect_type(DKIJakarta_tbl_df$`Minyak Goreng`, "double")
  expect_type(DKIJakarta_tbl_df$`Minyak Goreng Curah`, "double")
  expect_type(DKIJakarta_tbl_df$`Minyak Goreng Kemasan Bermerk 1`, "double")
  expect_type(DKIJakarta_tbl_df$`Minyak Goreng Kemasan Bermerk 2`, "double")
  expect_type(DKIJakarta_tbl_df$`Gula Pasir`, "double")
  expect_type(DKIJakarta_tbl_df$`Gula Pasir Kualitas Premium`, "double")
  expect_type(DKIJakarta_tbl_df$`Gula Pasir Lokal`, "double")
})