tests/testthat/testInput.R

library(visDec)

context("Filename parsing")

midnightFile <- "./Input/Meetterrein_20151009_0000.jpg"
standardFile <- "./Input/Meetterrein_20151009_0610.jpg"
sensorTestFile <- "./Input/DeBiltMORSensor2015.csv"

test_that("FileNameParser", {
  expect_match(FileNameParser(midnightFile, "na*me_yyyymmdd_hhmm.jpg")$filePrefix, "Meetterrein")
  expect_match(paste(FileNameParser(standardFile, "na*me_yyyymmdd_hhmm.jpg")$dateTime), "2015-10-09 06:10:00")

  expect_equal_to_reference(ReadMORSensorData(sensorTestFile), "./Reference/sensorOutput.rds")

  fileInfoDT <- FileNameParser(standardFile, "na*me_yyyymmdd_hhmm.jpg")
  expect_equal_to_reference(UniqueDaysPerStation(fileInfoDT), "./Reference/daysAndStationFiltered.rds")

  fileInfoDT$dateTime <- fileInfoDT$dateTime + 60 * 2 #adding 2 minutes sync issue
  complete <- SynchronizeSensorPicture(ReadMORSensorData(sensorTestFile), fileInfoDT)
  expect_equal_to_reference(complete, "./Reference/syncSensorPicture.rds")
  sensorValues <- ReadMORSensorData(sensorTestFile)
  expect_match(paste(complete$TOA.MOR_10),
      paste(min(sensorValues[sensorValues$dateTime == as.POSIXlt("2015-10-09 06:10:00", tz = "UTC"), ]$TOA.MOR_10,
                sensorValues[sensorValues$dateTime == as.POSIXlt("2015-10-09 06:20:00", tz = "UTC"), ]$TOA.MOR_10)))



})
MartinRoth/visDec documentation built on May 7, 2019, 3:40 p.m.