Print a tinytest object
Examples
tt <- expect_equal(1+1, 3)
format(tt,"long")
#> [1] "----- FAILED[data]: <-->\n call| eval(expr, envir)\n diff| Expected '3', got '2'"
format(tt,"short")
#> [1] "FAILED[data]: <--> eval(expr, envir)"
print(expect_equal(1+1, 2))
#> ----- PASSED : <-->
#> call| eval(expr, envir)
print(expect_equal(1+1, 3), type="long")
#> ----- FAILED[data]: <-->
#> call| eval(expr, envir)
#> diff| Expected '3', got '2'