revparse_single: handle case when git object is a blob

Signed-off-by: Stefan Widgren <stefan.widgren@gmail.com>
ropensci · Jan 5, 2018 · c1774b1 · c1774b1
1 parent 76a59c6
commit c1774b1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/git2r_revparse.c b/src/git2r_revparse.c
@@ -56,6 +56,10 @@ SEXP git2r_revparse_single(SEXP repo, SEXP revision)
         goto cleanup;
 
     switch (git_object_type(treeish)) {
+    case GIT_OBJ_BLOB:
+        PROTECT(result = NEW_OBJECT(MAKE_CLASS("git_blob")));
+        git2r_blob_init((git_blob*)treeish, repo, result);
+        break;
     case GIT_OBJ_COMMIT:
         PROTECT(result = NEW_OBJECT(MAKE_CLASS("git_commit")));
         git2r_commit_init((git_commit*)treeish, repo, result);

diff --git a/tests/revparse.R b/tests/revparse.R
@@ -42,6 +42,7 @@ add(repo, "test.txt")
 commit(repo, "Second commit message")
 
 stopifnot(identical(revparse_single(repo, "HEAD^"), commit_1))
+stopifnot(is_blob(revparse_single(repo, "HEAD:test.txt")))
 
 ## Cleanup
 unlink(path, recursive=TRUE)