test_that("read_file_raw reads empty files", { tmp <- tempfile() on.exit(unlink(tmp)) writeBin(charToRaw(""), tmp) expect_equal(read_file_raw(tmp), raw()) }) works_with <- function(contents) { tmp <- tempfile() on.exit(unlink(tmp)) writeBin(charToRaw(contents), tmp) expect_equal(read_file_raw(tmp), charToRaw(contents)) } test_that("read_file_raw reads the entire file", { works_with("foo") works_with("foo\nbar") works_with("foo\nbar\n") works_with("foo\r\nbar\r\n") })
Generated by dwww version 1.15 on Thu Jun 20 23:34:22 CEST 2024.