From f06b59e278e10247b55e5c9d9c436d811d3783bd Mon Sep 17 00:00:00 2001 From: Simon Date: Sat, 17 Aug 2024 15:21:39 +0200 Subject: [PATCH] add more package related function --- DESCRIPTION | 3 +++ tests/testthat.R | 12 ++++++++++++ tests/testthat/test-getStationData.R | 19 +++++++++++++++++++ 3 files changed, 34 insertions(+) create mode 100644 tests/testthat.R create mode 100644 tests/testthat/test-getStationData.R diff --git a/DESCRIPTION b/DESCRIPTION index 0825bf5..62bdfd6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -10,3 +10,6 @@ License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a Encoding: UTF-8 Roxygen: list(markdown = TRUE) RoxygenNote: 7.3.2 +Suggests: + testthat (>= 3.0.0) +Config/testthat/edition: 3 diff --git a/tests/testthat.R b/tests/testthat.R new file mode 100644 index 0000000..fddd471 --- /dev/null +++ b/tests/testthat.R @@ -0,0 +1,12 @@ +# This file is part of the standard setup for testthat. +# It is recommended that you do not modify it. +# +# Where should you do additional test configuration? +# Learn more about the roles of various files in: +# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview +# * https://testthat.r-lib.org/articles/special-files.html + +library(testthat) +library(beaumontmeteo) + +test_check("beaumontmeteo") diff --git a/tests/testthat/test-getStationData.R b/tests/testthat/test-getStationData.R new file mode 100644 index 0000000..008cf54 --- /dev/null +++ b/tests/testthat/test-getStationData.R @@ -0,0 +1,19 @@ +library(jsonlite) +library(httr) + + +source(file.path(here::here(),"secrets")) +# Create a Bearer token header +headers.default <- add_headers( + accept = "*/*", + apikey = token2 +) + +test_that("get station return something right", +{ + test=getStationData(start_date="2024-06-24",end_date="2024-08-14",station_id="38269004",headers=headers.default) + if(!is.null(test)){testthat::expect_length(test,3)} + else testthat::expect_null(test) +}) + +