Fix check_arg_type()

Author: iofarm

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: qualifyr
 Type: Package
 Title: Validate Relational Data Structures
-Version: 0.1.0.9000
+Version: 0.1.0.9002
 Authors@R: c(
     person(
       "Ian", "Farm",

R/utils.R

@@ -116,7 +116,7 @@ format_indices <- function(x, max_len = Inf) {
 # Miscellaneous ================================================================
 
 check_arg_type <- function(arg, type, predicate = \(x) inherits(x, type)) {
-  arg_name <- rlang::ensym(arg)
+  arg_name <- rlang::as_string(rlang::ensym(arg))
   if (!(predicate)(arg))
     stop(sprintf("'%s' must be a %s, not %s", arg_name, type, typeof(arg)))
 }

tests/testthat/test-qf_table.R

@@ -62,3 +62,11 @@ test_that("print() output is correct", {
   dset <- example_dataset()
   expect_snapshot_output(print(dset$planes))
 })
+
+test_that("argument type checking works", {
+  dset <- example_dataset()
+  expect_error(regexp = "'x' must be a qf_table, not NULL", {
+    constraints(dset$planez) <-
+      cstr_primary_key(tailnum)
+  })
+})