R Under development (unstable) (2023-07-09 r84667 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(geonapi)
Loading required package: geometa
Loading ISO 19139 XML schemas...
Loading ISO 19115 codelists...
Loading required package: keyring
> 
> #test environment
> gnUrl <- "http://localhost:8080/geonetwork"
> gnUsr <- "admin"
> gnPwd <- "admin"
> gnVersion <- Sys.getenv("GN_VERSION")
> gnLogger <- "DEBUG"
> GN <- try(GNManager$new(gnUrl, gnUsr, gnPwd, gnVersion, gnLogger))
Error in if (gn_version$value$major >= 3) { : 
  missing value where TRUE/FALSE needed
> 
> if(inherits(GN, "GNAbstractManager")){
+   cat(sprintf("GeoNetwork test instance started at %s. Running integration tests...\n", gnUrl))
+   test_check("geonapi")
+ }else{
+   cat("GeoNetwork test instance is not started. Skipping integration tests...\n")
+ }
GeoNetwork test instance is not started. Skipping integration tests...
> 
> proc.time()
   user  system elapsed 
   3.64    0.25    5.87