tests/testthat/test_pread_df.R

In pkchouhan14/customerChurnUU: Customer Churn Data Analysis

library(customerChurnUU)
context("check read data")

#test_that("dataFrame read",{
#  telecomDataframe<-sample_read()
#  if(ls()=="character(0)"){
#    print("No dataset read")
#  }
#})

test_that("check NA in the column",{
expect_equal(check_NA(sample_read(),"TotalCharges"),11)
})

test_that("check read data have zero NA values",{
  expect_gt(sum(is.na(sample_read())),0)
})

test_that("check all data is read",{
  expect_equal(nrow(sample_read()),7043)
  expect_equal(ncol(sample_read()),21)
})