Add new test for invalid file.

bpvgoncalves · Sep 16, 2023 · 196e901 · 196e901
1 parent fd01914
commit 196e901
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-key_open.R b/tests/testthat/test-key_open.R
@@ -84,3 +84,14 @@ test_that("Read Sphincs+ key-pair", {
   unlink(paste0(path, "/keypair.pub"))
 
 })
+
+test_that("Fails on bad file", {
+
+  file <- tempfile()
+  writeLines("qwerty", file(file))
+
+  expect_error(open_key(file))
+
+  unlink(file)
+
+})