test-ggplot-bar and expect_true instead of stopifnot