capture_melt_single, capture_melt_multiple tests

NEWS

@@ -1,6 +1,6 @@
 Changes in version 2024.12.17
 
-- capture_first_vec, capture_all_str, capture_first_df now support type.convert argument. TRUE means to use utils::type.convert(x,as.is=TRUE) as default conversion function (as.is=TRUE means to return character instead of factor), FALSE means identity, and otherwise can be any function to use as default conversion.
+- capture_first_vec, capture_all_str, capture_first_df, capture_first_glob, measure, capture_melt_single, capture_melt_multiple now support type.convert argument. TRUE means to use utils::type.convert(x,as.is=TRUE) as default conversion function (as.is=TRUE means to return character instead of factor), FALSE means identity, and otherwise can be any function to use as default conversion.
 
 Changes in version 2024.9.20
 

tests/testthat/test-CRAN-melt.R

@@ -119,6 +119,12 @@ test_engines("melting lots of columns is OK", {
   expect_identical(out$value, i.vec)
 })
 
+test_engines("melting lots of columns type.convert=TRUE is OK", {
+  out <- capture_melt_single(one.row, "X", col="[0-9]+", type.convert=TRUE)
+  expect_identical(out$col, i.vec)
+  expect_identical(out$value, i.vec)
+})
+
 DT.wide <- data.table(id=0, num_ref=1, name_ref="foo", num=2, name="bar")
 test_engines("converting NA to non-NA is an error", {
   expect_error({

tests/testthat/test-CRAN-multiple.R

@@ -276,6 +276,14 @@ test_engines("multiple melting lots of columns is OK", {
   expect_identical(out$C, c.vec)
 })
 
+test_engines("multiple melting lots of columns type.convert=TRUE is OK", {
+  out <- capture_melt_multiple(
+    one.row, column=".", "[.]", int="[0-9]+", type.convert=TRUE)
+  expect_identical(out$int, i.vec)
+  expect_identical(out$I, i.vec)
+  expect_identical(out$C, c.vec)
+})
+
 wide.metrics <- data.table(
   FP.possible=8202, FN.possible=1835,
   FP.count=0, FN.count=1835)