Giuliano Mega 1d23b31461
Block discovery simulator and analysis (#175)
* add block discovery simulator

* add analysis document for simpler cases of block discovery
2023-09-27 23:45:58 -06:00

18 lines
341 B
R

test_that(
"should collect stats as they are input", {
stats <- Stats$new()
stats$add_stat(a = 1, b = 2, name = 'hello')
stats$add_stat(a = 1, b = 3, name = 'world')
expect_equal(
stats$as_tibble(),
tribble(
~a, ~b, ~name,
1, 2, 'hello',
1, 3, 'world',
)
)
}
)