File: test-write_datasets.R

package info (click to toggle)
r-cran-eaf 2.5.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,028 kB
  • sloc: ansic: 7,281; perl: 848; makefile: 73; sh: 43; python: 27
file content (8 lines) | stat: -rw-r--r-- 274 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
 
source("helper-common.R")

test_that("write_datasets", {
  x <- read_datasets(text="1 2\n3 4\n\n5 6\n7 8\n", col_names=c("obj1", "obj2"))
  y <- read_datasets(text = capture.output(write_datasets(x)),
                     col_names=c("obj1", "obj2"))
  expect_equal(x,y)
})