R Under development (unstable) (2024-02-26 r85990 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(geosapi)
> 
> #test environment
> gsUrl <- "http://localhost:8080/geoserver"
> gsUsr <- "admin"
> gsPwd <- "geoserver"
> gsLogger <- "INFO"
> gsman <- try(GSManager$new(gsUrl, gsUsr, gsPwd, gsLogger))
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Failed to connect to localhost port 8080 after 2236 ms: Couldn't connect to server
> 
> 
> if(is(gsman, "GSManager")){
+   cat(sprintf("GeoServer test instance started at %s. Running integration tests...\n", gsUrl))
+   test_check("geosapi")
+ }else{
+   cat("GeoServer test instance is not started. Skipping integration tests...\n")
+ }
GeoServer test instance is not started. Skipping integration tests...
> 
> proc.time()
   user  system elapsed 
   0.64    0.06    2.95