R Under development (unstable) (2024-03-16 r86144 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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\RtmpgHhjUB/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 2 seconds
Time taken: 0 minutes and 2 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
Time taken: 0 minutes and 0 seconds
Progress: check drugsMissing
Time taken: 0 minutes and 2 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
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
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 176 | SKIP 1 | PASS 287 ]

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

[ FAIL 0 | WARN 176 | SKIP 1 | PASS 287 ]
There were 11 warnings (use warnings() to see them)
> 
> proc.time()
   user  system elapsed 
 161.89    9.71  162.93