R Under development (unstable) (2023-10-24 r85407 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(DrugExposureDiagnostics)
> 
> test_check("DrugExposureDiagnostics")
trying URL 'https://example-data.ohdsi.dev/GiBleed.zip'
Content type 'application/zip' length 6754786 bytes (6.4 MB)
==================================================
downloaded 6.4 MB

Creating CDM database D:\temp\Rtmpqs7e78/GiBleed_5.3.zip
Progress: getting descendant concepts of ingredient (1125315) used in database
Progress: getting descendant concepts of ingredient
Progress: adding drug strength info
Progress: limiting to concepts in the db
Progress: adding concept names
Overall time taken: 0 minutes and 1 seconds
Time taken: 0 minutes and 1 seconds
Progress: getting drug strength for ingredient
Time taken: 0 minutes and 0 seconds
Progress: getting drug records for ingredient
Time taken: 0 minutes and 0 seconds
Progress: get concepts used
Time taken: 0 minutes and 0 seconds
Progress: sampling drug records
population after earliestStartDate smaller than sample, ignoring date for sampling
Time taken: 0 minutes and 0 seconds
Progress: check drugsMissing
Time taken: 0 minutes and 1 seconds
Progress: check ExposureDuration
Time taken: 0 minutes and 0 seconds
Progress: check drugQuantity
Time taken: 0 minutes and 0 seconds
Finished
population after earliestStartDate smaller than sample, ignoring date for sampling
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample, ignoring date for sampling
population after earliestStartDate smaller than sample, ignoring date for sampling
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample, ignoring date for sampling
population after earliestStartDate smaller than sample, ignoring date for sampling
population after earliestStartDate smaller than sample, ignoring date for sampling
population after earliestStartDate smaller than sample, ignoring date for sampling
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
Time taken: 0 minutes and 0 seconds
testMessage
[ FAIL 0 | WARN 20 | SKIP 1 | PASS 302 ]

══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Sys.getenv("TESTDB_USER") == "" is TRUE (1): 'test-SyntheaSqlServer.R:5:3'

[ FAIL 0 | WARN 20 | SKIP 1 | PASS 302 ]
There were 28 warnings (use warnings() to see them)
> 
> proc.time()
   user  system elapsed 
 117.00    7.06  117.70 
There were 28 warnings (use warnings() to see them)