Add missing code path

Author: krlmlr

R/enframe.R

@@ -33,7 +33,7 @@ enframe <- function(x, name = "name", value = "value") {
   }
 
   if (is.null(name)) {
-    df <- list(vec_set_names(x, NULL))
+    df <- list(vectbl_set_names(x))
   } else if (is.null(vec_names(x))) {
     df <- list(seq_len(vec_size(x)), x)
   } else {

tests/testthat/test-enframe.R

@@ -108,6 +108,7 @@ test_that("can deframe three-column data frame with warning", {
 test_that("can roundtrip record", {
   rcrd <- new_rcrd(data.frame(a = 1:3))
   expect_identical(deframe(enframe(rcrd)), rcrd)
+  expect_identical(deframe(enframe(rcrd, name = NULL)), rcrd)
   rcrd_named <- new_rcrd(data.frame(a = 1:3, row.names = letters[1:3]))
   expect_identical(deframe(enframe(rcrd_named)), rcrd_named)
 })