Use expect_type where appropriate

Similar to tidyverse#6211 -- caught with `lintr::expect_type_linter()`.
MichaelChirico · Mar 22, 2022 · 5a7caa4 · 5a7caa4
1 parent 8abb54b
commit 5a7caa4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-bind.R b/tests/testthat/test-bind.R
@@ -185,16 +185,16 @@ test_that("bind_rows() promotes integer to numeric", {
   df2 <- tibble(a = 1, b = 1L)
 
   res <- bind_rows(df1, df2)
-  expect_equal(typeof(res$a), "double")
-  expect_equal(typeof(res$b), "integer")
+  expect_type(res$a, "double")
+  expect_type(res$b, "integer")
 })
 
 test_that("bind_rows() promotes factor to character with warning", {
   df1 <- tibble(a = factor("a"))
   df2 <- tibble(a = "b")
 
   res <- bind_rows(df1, df2)
-  expect_equal(typeof(res$a), "character")
+  expect_type(res$a, "character")
 })
 
 test_that("bind_rows() coerces factor when levels don't match", {