# Tests for reading of Igor Binary Wave (.ibw) files
# 
# Author: jefferis
###############################################################################

context("Verify reading of Igor IBW files")

test_that("Read Igor v5 file", {
      expect_that (w5<-read.ibw(system.file('igor/version5.ibw', package = 'IgorR')),
          is_a("numeric"),'read igor v5 wave without error')
      expect_that(attr(w5,'BinHeader')$version,
          equals(5))
      expect_that(tsp.igorwave(w5),
          equals(structure(c(0, 4, 1), .Names = c("start", "end", "frequency"))))
      
    })

test_that("Read Igor v2 file", {
      expect_that (w2<-read.ibw(system.file('igor/version2.ibw', package = 'IgorR')),
          is_a("numeric"),'read igor v2 wave without error')
      expect_that(attr(w2,'BinHeader')$version,
          equals(2))
      expect_that(tsp.igorwave(w2),
          equals(structure(c(0, 4, 1), .Names = c("start", "end", "frequency"))))
    })

test_that("Processing of dates", {
  # when in GMT timezone (Banjul, The Gambia) or BST Igor says
  # print secs2Time(3444214517, 3) 
  # 14:15:17 
  expect_equivalent(.convertIgorDate(3444214517, tz="GMT"),as.POSIXct("2013-02-20 14:15:17", tz = 'GMT'))
  expect_equivalent(.convertIgorDate(3444214517, tz="Africa/Banjul"),as.POSIXct("2013-02-20 14:15:17", tz = 'Africa/Banjul'))
  expect_equivalent(.convertIgorDate(3444214517, tz="Europe/London"),as.POSIXct("2013-02-20 14:15:17", tz = 'Europe/London'))
  # from nm20120811c1_016.pxp 
  # old implementation said 13:37 on my laptop, lmb cluster and mac in PDT
  # but mtime of file and embedded time string is 12:37 
  # and this is also what I get on a sunos machine in PDT
  expect_equivalent(.convertIgorDate(3427533421, tz = 'GMT'),as.POSIXct("2012-08-11 12:37:01", tz='GMT'))
  expect_equivalent(.convertIgorDate(3427533421, tz = 'Europe/London'),as.POSIXct("2012-08-11 12:37:01", tz='Europe/London'))
  
  # when in GMT timezone or BST Igor says
  # print secs2Time(3805612788, 3) 
  # 10:39:48
  expect_equivalent(.convertIgorDate(3805612788, tz='GMT'),as.POSIXct("2024-08-04 10:39:48", tz='GMT'))
  expect_equivalent(.convertIgorDate(3805612788, tz='Europe/London'),as.POSIXct("2024-08-04 10:39:48", tz='Europe/London'))
  expect_equivalent(.convertIgorDate(3805612788, tz='America/New_York'),as.POSIXct("2024-08-04 10:39:48", tz='America/New_York'))
})

test_that("Processing of funny null terminated strings", {
  expect_is(bad_string_wave<-read.ibw('igor/bad_null_string.ibw'), 'numeric')
})