tests/testthat/_snaps/01.server.md

In rkrug/plantuml: Create UML Graphs using PlantUML Syntax

Server ststus before tests

Code
  server_status()
Output
  http://www.plantuml.com/plantuml/ 
                                  2

Server is not starting when server_url != "localhost"

Server needs to be set to localhost by running `server_set("local"!)`

Starting of server works as expected

Code
  server_set("local")
  s <- server_start()
  s$version <- "NA"
  s
Output
  $version
  [1] "NA"

  $PicoWebServer
  [1] TRUE

  $formats
  [1] "png" "svg" "txt"

Code
  s <- server_status()
  s$version <- "NA"
Warning <simpleWarning>
  Coercing LHS to a list
Code
  s
Output
  $`http://localhost:8080/`
  [1] 1

  $version
  [1] "NA"

Code
  s <- server_start()
Warning <simpleWarning>
  There is already a PicoWeb Server running on port 8080!
Code
  s$version <- "NA"
  s
Output
  $version
  [1] "NA"

  $PicoWebServer
  [1] TRUE

  $formats
  [1] "png" "svg" "txt"

Code
  s <- server_info()
  s$version <- "NA"
  s
Output
  $version
  [1] "NA"

  $PicoWebServer
  [1] TRUE

  $formats
  [1] "png" "svg" "txt"

Code
  server_set("remote")

Stopping of server works as expected

Code
  server_set("local")
  s <- server_stop()
  s$version <- "NA"
Warning <simpleWarning>
  Coercing LHS to a list
Code
  s
Output
  [[1]]
  [1] 0

  $version
  [1] "NA"

Code
  Sys.sleep(2)
  s <- server_status()
  s$version <- "NA"
Warning <simpleWarning>
  Coercing LHS to a list
Code
  s
Output
  $`http://localhost:8080/`
  [1] 1

  $version
  [1] "NA"

Code
  s <- server_info()
  s$version <- "NA"
  s
Output
  $version
  [1] "NA"

  $PicoWebServer
  [1] TRUE

  $formats
  [1] "png" "svg" "txt"

Code
  s <- server_start()
Warning <simpleWarning>
  There is already a PicoWeb Server running on port 8080!
Code
  s$version <- "NA"
  s
Output
  $version
  [1] "NA"

  $PicoWebServer
  NULL

  $formats
  NULL

Code
  server_set("remote")

rkrug/plantuml documentation built on June 3, 2023, 6:24 a.m.