update tests

eurostat · May 23, 2022 · e55a2da · e55a2da
1 parent 39f9929
commit e55a2da
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: restatapi
 Type: Package
 Title: Search and Retrieve Data from Eurostat Database
-Date: 2022-03-24
-Version: 0.13.1
+Date: 2022-05-23
+Version: 0.13.2
 Encoding: UTF-8
 Authors@R: person("Mátyás", "Mészáros", email = "[email protected]", role = c("aut", "cre"))
 Description: Eurostat is the statistical office of the European Union and provides high quality statistics for Europe.

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,8 @@
+# restatapi 0.13.2
+
+- correction of tests as changes in the historical data for "avia_par_me" and "avia_par_is"
+- CRAN release
+
 # restatapi 0.13.1
 
 - correction of tests

diff --git a/inst/tinytest/test_restatapi.R b/inst/tinytest/test_restatapi.R
@@ -341,7 +341,7 @@ if (!is.null(dsd)){
   message("\n ########--------- 85 test of the create_filter_table function")
   expect_equal(ncol(ft1),ncol(ft2))
   message("\n ########--------- 86 test of the create_filter_table function")
-  expect_equal(nrow(ft1),8)
+  expect_equal(nrow(ft1),10)
   message("\n ########--------- 87 test of the create_filter_table function")
   expect_equal(nrow(ft2),2)
 } else {no_check<-paste(no_check,"84-87",sep=", ")}
@@ -398,7 +398,7 @@ if (grepl("\\.amzn|-aws|5.4.109+",Sys.info()['release'])) {
     nr10<-nrow(get_eurostat_data(testid6,date_filter=c(2016,"2017-03","2017-05","2017-07-01"),select_freq="Q",cflags=TRUE))
     if (!is.null(nr10)){
       message("\n ########--------- 98 additional tests for filtering in the get_eurostat_data function")
-      expect_equal(nr10,1152)
+      expect_equal(nr10,1232)
     } else {no_check<-paste(no_check,"98",sep=", ")}
     dt5<-get_eurostat_data(testid6,filters="Q...ME_LYPG_HU_LHBP+ME_LYTV_UA_UKKK",date_filter=c("2016-08","2017-07-01"),select_freq="M")
     dt6<-get_eurostat_data(testid6,filters=c("HU","Quarterly","Monthly"),date_filter=c("2016-08","2017-07-01"),stringsAsFactors=FALSE,label=TRUE)
@@ -442,7 +442,7 @@ if (grepl("\\.amzn|-aws|5.4.109+",Sys.info()['release'])) {
     nr11<-nrow(get_eurostat_data(testid9,filters="Monthly",exact_match=FALSE,date_filter=c("<2018-07-01"),select_freq="A",label=TRUE,name=FALSE))
     if (!is.null(nr11)){
       message("\n ########--------- 107 additional tests for filtering in the get_eurostat_data function")
-      expect_equal(nr11,4737)
+      expect_equal(nr11,5565)
     } else {no_check<-paste(no_check,"107",sep=", ")}
   } else {no_check<-paste(no_check,"107",sep=", ")}
   dsd4<-get_eurostat_dsd(testid10)
@@ -660,7 +660,7 @@ if (grepl("\\.amzn|-aws|5.4.109+",Sys.info()['release'])) {
   nr13<-nrow(get_eurostat_data(testid6,date_filter=yr,select_freq="A",verbose=TRUE))
   if (!is.null(nr13)){
     message("\n ########--------- 158 additional tests for filtering in the get_eurostat_data function")
-    expect_equal(nr13,228)
+    expect_equal(nr13,252)
   } else {no_check<-paste(no_check,"158",sep=", ")}
 
 }