I think this looks better if you write it like

```r
code <- "
  test_that('simple', {      # line1
    expect_toto(FALSE)          # line2
})                
+    "