tests/testthat/test-jdx.R

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 "))
  
})

Try the AlpsNMR package in your browser

Any scripts or data that you put into this service are public.

AlpsNMR documentation built on April 1, 2021, 6:02 p.m.