test_that("file_line_endings detects Unix line endings", { tmp <- tempfile() on.exit(unlink(tmp)) writeBin(charToRaw("foo\n"), tmp) expect_equal(file_line_endings(tmp), "\n") writeBin(charToRaw(""), tmp) expect_identical(file_line_endings(tmp), NA_character_) }) test_that("file_line_endings detects Windows line endings", { tmp <- tempfile() on.exit(unlink(tmp)) writeBin(charToRaw("foo\r\n"), tmp) expect_equal(file_line_endings(tmp), "\r\n") })
Generated by dwww version 1.15 on Sun Jun 23 03:50:03 CEST 2024.