Skip to content

Commit

Permalink
code factor
Browse files Browse the repository at this point in the history
  • Loading branch information
plietar committed Sep 4, 2024
1 parent 5f640ca commit cc8c0f6
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions tests/testthat/test-zzz-location-http.R
Original file line number Diff line number Diff line change
Expand Up @@ -60,9 +60,12 @@ describe("server integration tests", {
existing_hashes <- orderly_metadata(ids[[1]], root = path)$files$hash
new_hash <- hash_data(toString(runif(100)), algorithm = "sha256")

expect_setequal(client_http$list_unknown_files(new_hash), new_hash)
expect_setequal(client_http$list_unknown_files(existing_hashes), character(0))
expect_setequal(client_http$list_unknown_files(c(new_hash, existing_hashes)), new_hash)
expect_setequal(
client_http$list_unknown_files(new_hash), new_hash)
expect_setequal(
client_http$list_unknown_files(existing_hashes), character(0))
expect_setequal(
client_http$list_unknown_files(c(new_hash, existing_hashes)), new_hash)
})
})

Expand Down

0 comments on commit cc8c0f6

Please sign in to comment.