srcref not always used about constructive HOT 1 CLOSED

DBItest:::spec_result_roundtrip$data_timestamp_current
#> function(ctx, con) {
#>     #'   (also applies to the return value of the SQL function `current_timestamp`)
#>     coercible_to_timestamp <- function(x) {
#>       x_timestamp <- try_silent(as.POSIXct(x))
#>       !is.null(x_timestamp) && all(is.na(x) == is.na(x_timestamp))
#>     }
#> 
#>     is_roughly_current_timestamp <- function(x) {
#>       coercible_to_timestamp(x) && (Sys.time() - as.POSIXct(x, tz = "UTC") <= hms::hms(2))
#>     }
#> 
#>     test_select_with_null(
#>       .ctx = ctx, con,
#>       "current_timestamp" ~ is_roughly_current_timestamp
#>     )
#>   }
#> <bytecode: 0x1389623d0>
#> <environment: namespace:DBItest>
constructive::construct(DBItest:::spec_result_roundtrip$data_timestamp_current, ignore_function_env = TRUE)
#> function(ctx, con) {
#>   #'   (also applies to the return value of the SQL function `current_timestamp`)
#>   coercible_to_timestamp <- function(x) {
#>     x_timestamp <- try_silent(as.POSIXct(x))
#>     !is.null(x_timestamp) && all(is.na(x) == is.na(x_timestamp))
#>   }
#> 
#>   is_roughly_current_timestamp <- function(x) {
#>     coercible_to_timestamp(x) && (Sys.time() - as.POSIXct(x, tz = "UTC") <= hms::hms(2))
#>   }
#> 
#>   test_select_with_null(
#>     .ctx = ctx, con,
#>     "current_timestamp" ~ is_roughly_current_timestamp
#>   )
#> }