tests/testthat/test-jdx.R

In AlpsNMR: Automated spectraL Processing System for NMR

context("Import JDX files")

test_that("comments are stripped", {
  
  expect_equal(strip_comments(c("##TITLE=Hello $$ world",
                                "$$ Hello world",
                                "12343 $$ hello world")),
               c("##TITLE=Hello ", "", "12343 "))
  
})

test_that("comments are stripped", {
  
  expect_equal(strip_comments(c("##TITLE=Hello $$ world",
                                "$$ Hello world",
                                "12343 $$ hello world")),
               c("##TITLE=Hello ", "", "12343 "))
  
})