Skip to content
This repository has been archived by the owner on Sep 14, 2023. It is now read-only.

Commit

Permalink
updated date range in test
Browse files Browse the repository at this point in the history
  • Loading branch information
dbolotov committed Apr 28, 2020
1 parent e4ebaed commit 4d5e26f
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions tests/testthat/test_get_events.R
Original file line number Diff line number Diff line change
Expand Up @@ -7,15 +7,15 @@ test_that("num_rows controls number of records returned", {

result_06 <- get_events(
device_id = loc_device_id,
date_from = "2020-01-02T06:29:00Z",
date_to = "2020-02-02T06:35:10Z",
date_from = "2020-03-02T06:29:00Z",
date_to = "2020-03-02T06:35:10Z",
num_rows = 2
)

result_07 <- get_events(
device_id = loc_device_id,
date_from = "2020-01-02T06:29:00Z",
date_to = "2020-02-02T06:35:10Z",
date_from = "2020-03-02T06:29:00Z",
date_to = "2020-03-02T06:35:10Z",
num_rows = 4
)

Expand All @@ -29,8 +29,8 @@ test_that("parse_json = FALSE returns character string", {

result_10 <- get_events(
device_id = loc_device_id,
date_from = "2019-01-01T00:00:00Z",
date_to = "2021-01-01T00:00:00Z",
date_from = "2019-03-01T00:00:00Z",
date_to = "2021-03-01T00:00:00Z",
num_rows = 7, parse_json = FALSE
)

Expand All @@ -43,8 +43,8 @@ test_that("when num_rows is NULL, return all records between two dates", {

result_11 <- get_events(
device_id = loc_device_id,
date_from = "2020-02-02T06:29:00Z",
date_to = "2020-02-02T06:29:10Z"
date_from = "2020-03-02T06:29:00Z",
date_to = "2020-03-02T06:29:10Z"
)
expect_equal(NROW(result_11), 2)
})

0 comments on commit 4d5e26f

Please sign in to comment.