Add tests for parsing procspec

rmaia · Nov 7, 2017 · 0576313 · 0576313
1 parent 110d2dd
commit 0576313
Show file tree

Hide file tree

Showing 6 changed files with 14 additions and 12 deletions.
diff --git a/R/getspec.R b/R/getspec.R
@@ -108,7 +108,6 @@ getspec <- function(where = getwd(), ext = 'txt', lim = c(300, 700), decimal = "
   message(length(files), ' files found; importing spectra:')
 
   gsp <- function(ff){
-
     if(grepl("\\.ProcSpec$", ff)){
       # ProcSpec files differ too much from the other formats and need their own
       # function.

diff --git a/examplespec/OceanOptics_Linux.ProcSpec b/examplespec/OceanOptics_Linux.ProcSpec
diff --git a/examplespec/OceanOptics_Windows.ProcSpec b/examplespec/OceanOptics_Windows.ProcSpec
diff --git a/inst/testdata/OceanOptics_Linux.ProcSpec b/inst/testdata/OceanOptics_Linux.ProcSpec
diff --git a/inst/testdata/OceanOptics_Windows.ProcSpec b/inst/testdata/OceanOptics_Windows.ProcSpec
diff --git a/tests/testthat/test-import.R b/tests/testthat/test-import.R
@@ -2,30 +2,33 @@ library(pavo)
 context('import')
 
 test_that('getspec', {
-  
+
 ## Run through a bunch of file types
   avantes1 <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'ttt'))
   expect_is(avantes1, "rspec")
-  
+
   transmit <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'Transmission'))
   expect_is(transmit, "rspec")
-  
+
   irr <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'IRR'))
   expect_is(irr, "rspec")
-  
+
   jazspec <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'jaz'))
   expect_is(jazspec, "rspec")
-  
+
   jazirrad <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'JazIrrad'))
   expect_is(jazirrad, "rspec")
-
+
+  proc <- suppressMessages(getspec(system.file("testdata", package = 'pavo'), ext = 'ProcSpec'))
+  expect_is(proc, "rspec")
+
 ## Error handling
   # should fail completely
-  expect_error(getspec(system.file("testdata", package = 'pavo'), ext = 'TRM', sep = ''))  
-  
+  expect_error(getspec(system.file("testdata", package = 'pavo'), ext = 'TRM', sep = ''))
+
   # should partly succeed (1/2)
   expect_warning(getspec(system.file("testdata", package = 'pavo'), ext = 'txt'), 'Could not import')
-  oceanview <- suppressWarnings(getspec(system.file("testdata", package = 'pavo'), ext = 'txt'))  
+  oceanview <- suppressWarnings(getspec(system.file("testdata", package = 'pavo'), ext = 'txt'))
   expect_is(oceanview, "rspec")
-  
-})
+
+})