https://github.com/ctlab/phantasus
Tip revision: 0c033b47255ebef5d3e17b1a3b4dee9a8abe6387 authored by Alexey Sergushichev on 27 February 2018, 15:55:49 UTC
js tests doesn't work on appveyor :(
js tests doesn't work on appveyor :(
Tip revision: 0c033b4
testgct.R
context("GCT")
test_that("write.gct and read.gct work", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
gctFile <- tempfile(fileext = ".gct")
write.gct(es, gctFile)
es2 <- read.gct(gctFile)
expect_equal(dim(es2), dim(es))
})
test_that("write.gct and read.gct work for gzip files", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
gctFile <- tempfile(fileext = ".gct.gz")
write.gct(es, gctFile, gzip = T)
es2 <- read.gct(gctFile)
expect_equal(dim(es2), dim(es))
})