Priority fails in non-saturated finite-queue resources

[Enchufa2]

Example:

library(simmer)

low_prio <- trajectory() %>%
  seize("res", 1) %>%
  timeout(10) %>%
  release("res", 1)

high_prio <- trajectory() %>%
  seize("res", 7) %>%
  timeout(10) %>%
  release("res", 7)

env <- simmer(verbose = TRUE) %>%
  add_resource("res", 0, 10) %>%
  add_generator("low_prio", low_prio, at(rep(0, 5))) %>%
  add_generator("high_prio", high_prio, at(1), priority = 1) %>%
  run()

get_mon_arrivals(env)
#>         name start_time end_time activity_time finished replication
#> 1 high_prio0          1        1             0    FALSE           1