Batch with timeout=Inf should be equivalent to timeout=0 (disabled)

[Enchufa2]

Reprex:

library(simmer)

t <- trajectory() %>%
  batch(2, timeout = Inf)

simmer() %>%
  add_generator("dummy", t, at(0, 2)) %>%
  run() %>%
  get_mon_arrivals()
#>     name start_time end_time activity_time finished replication
#> 1 dummy0          0        1             0     TRUE           1
#> 2 dummy1          2        2             0     TRUE           1

The end_time for the first arrival should be 2.