Nothing
# 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')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.