✅ Add unit test for get_datafield_id()

R/get_datafield_id.R

@@ -28,7 +28,7 @@ table in that datasource and which field in that table.",
         source = "data source which stores the data"
       )
     )
-    return(1)
+    return(1L)
   }
   datafield <- verify_vc(
     file = "datafield", root = root,

tests/testthat/test_aaa_get_datafield_id.R

@@ -0,0 +1,24 @@
+test_that("get_datafield_id", {
+  root <- tempfile("get_datafield_id")
+  dir.create(root)
+  on.exit(unlink(root, recursive = TRUE))
+
+  expect_is(
+    get_datafield_id(
+      table = "test", field = "id", datasource = "database", root = root
+    ),
+    "integer"
+  )
+  expect_is(
+    get_datafield_id(
+      table = "test", field = "id", datasource = "database", root = root
+    ),
+    "integer"
+  )
+  expect_is(
+    get_datafield_id(
+      table = "test2", field = "id", datasource = "database", root = root
+    ),
+    "integer"
+  )
+})