From 24574a5b2a5a5a4e28baabe0333b51c3856f8282 Mon Sep 17 00:00:00 2001
From: keberwein <kristian.eberwein@yahoo.com>
Date: Wed, 14 Sep 2022 14:01:33 -0400
Subject: [PATCH] removed qcew test

---
 tests/testthat/test_qcew_api.R | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100644 tests/testthat/test_qcew_api.R

diff --git a/tests/testthat/test_qcew_api.R b/tests/testthat/test_qcew_api.R
deleted file mode 100644
index 23ce9a4..0000000
--- a/tests/testthat/test_qcew_api.R
+++ /dev/null
@@ -1,17 +0,0 @@
-library(blscrapeR)
-library(testthat)
-
-year=c(format(Sys.Date(), "%Y"))
-qtr=1
-slice="industry" 
-sliceCode="10"
-baseURL <- "https://data.bls.gov/cew/data/api/"
-url <- paste0(baseURL, year, "/", qtr, "/", slice, "/", sliceCode, ".csv")
-temp <- tempfile()
-download.file(url, temp, quiet = TRUE)
-qcewDat <- read.csv(temp, fill=TRUE, header=TRUE, sep=",", stringsAsFactors=FALSE,
-                    strip.white=TRUE)
-
-# Check actual fucntion
-out <- blscrapeR::qcew_api(year=c(format(Sys.Date(), "%Y")), qtr=1, slice="industry", sliceCode=10)
-#testthat::expect_identical(out, qcewDat)