update: cosmetic plus : use
expect_is(A, B)         instead of
expect_that(A, is_a(B))