Add missing line to test that 'git2r_arg_check_blob' raise error

Signed-off-by: Stefan Widgren <stefan.widgren@gmail.com>
ropensci · Mar 25, 2016 · 50ec176 · 50ec176
1 parent bf636b5
commit 50ec176
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/blob.R b/tests/blob.R
@@ -134,6 +134,7 @@ stopifnot(length(grep("'blob' must be a S4 class git_blob",
                       res[[1]]$message)) > 0)
 b <- blob_list_1[[1]]
 b@sha <- NA_character_
+res <- tools::assertError(.Call(git2r:::git2r_blob_content, b))
 stopifnot(length(grep("'blob' must be a S4 class git_blob",
                       res[[1]]$message)) > 0)