+ expect_identical(length(f$indices), 70)
+ expect_identical(length(f$colors), 70)
+ for (i in 1:22)
+ {
+ # -1 because of the initial shift
+ expect_identical(( (f$indices[i]-1) %% 3 ) + 1, 2)
+ expect_match(f$colors[i], f$colors[1])
+ }
+ for (i in 23:70)
+ {
+ expect_identical(( (f$indices[i]-1) %% 3 ) + 1, 3)
+ expect_match(f$colors[i], f$colors[23])
+ }
+ expect_match(colors[1], "...")
+ expect_match(colors[23], "...")
+})
+
+test_that("output is as expected on simulated series",
+{
+ data = getDataTest(150, TRUE)
+