test_that("testing works", {
    expect_that( 2 + 2
                , equals(4))

    # expect_that({e <- new.env()
    #              e[["computer_number"]] <- 31
    #              ft.start.1314(envir = e)
    #             }
    #             , prints_text("Done"))

})