tests/testthat/test-pystr_splitlines.R

In pystr: Python String Methods in R

library(pystr)
context("pystr_splitlines")

test_that("it splits correctly when \r\n is first", {
  expected = c("First", "Second", "Third")
  expect_equal(pystr_splitlines("First\r\nSecond\rThird")[[1]], expected)
})

test_that("it splits correctly when \r\n is second", {
  expected = c("First", "Second", "Third")
  expect_equal(pystr_splitlines("First\nSecond\r\nThird")[[1]], expected)
})

test_that("it splits correctly when \r\n is last", {
  expected = c("First", "Second", "Third")
  expect_equal(pystr_splitlines("First\nSecond\nThird\r\n")[[1]], expected)
})

test_that("it keeps the ends correctly when \r\n is first", {
  expected = c("First\r\n", "Second\r", "Third")
  expect_equal(pystr_splitlines("First\r\nSecond\rThird", TRUE)[[1]], expected)
})

test_that("it keepds the ends correctly when \r\n is second", {
  expected = c("First\n", "Second\r\n", "Third")
  expect_equal(pystr_splitlines("First\nSecond\r\nThird", TRUE)[[1]], expected)
})

test_that("it keeps the ends correctly when \r\n is last", {
  expected = c("First\n", "Second\n", "Third\r\n")
  expect_equal(pystr_splitlines("First\nSecond\nThird\r\n", TRUE)[[1]], expected)
})

test_that("it returns the string itself if there are no linebreaks", {
  expect_equal(pystr_splitlines("fdsa")[[1]], "fdsa")
})

test_that("it returns a list of character vectors", {
  input = c("A\rB\rC", "B\rC", "C")
  output = list(c("A", "B", "C"), c("B", "C"), "C")
  expect_equal(pystr_splitlines(input), output)
})