direct test of as.data.frame change

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21248,5 +21248,7 @@ test(2322.22, levels(fctr(c("b","a","c"), sort=NA)), error="TRUE or FALSE")
 test(2322.31, levels(fctr(c("b","a","c"), rev=TRUE, sort=TRUE)), c("c","b","a"))
 
 # data.frame() uses provided names of ITime inputs
-test(2323.1, names(data.frame(COL = as.ITime('00:00:00'))), "COL")
-test(2323.2, names(data.frame(b = 1, COL = as.ITime('00:00:00'))), c("b", "COL"))
+it <- as.ITime('00:00:00')
+test(2323.1, names(data.frame(COL = it)), "COL")
+test(2323.2, names(data.frame(b = 1, COL = it)), c("b", "COL"))
+test(2323.3, names(as.data.frame(it, optional=TRUE)), NULL)