tests/testthat/test_units.R

In dankelley/oce: Analysis of Oceanographic Data

# vim:textwidth=80:expandtab:shiftwidth=4:softtabstop=4
library(oce)

test_that("as.unit", {
    expect_equal(as.unit("DBAR"), list(unit=expression(dbar), scale=""))
    expect_equal(as.unit("IPTS-68"), list(unit=expression(degree*C), scale="IPTS-68"))
    expect_equal(as.unit("ITS-90"), list(unit=expression(degree*C), scale="ITS-90"))
    expect_equal(as.unit("PSS-78"), list(unit=expression(), scale="PSS-78"))
    expect_equal(as.unit("UMOL/KG"), list(unit=expression(mu*mol/kg), scale=""))
    expect_equal(as.unit(), list(unit=expression(), scale=""))
})

if (dir.exists("local_data")) {
    test_that("units in a CTD file of type WOCE (style 1)", {
        woce <- read.ctd.woce("local_data/ctd/18HU2010014_00003_00001_ct1.csv")
        # test units (issue 1194)
        expect_equal(woce[["pressureUnit"]], list(unit=expression(dbar), scale=""))
        expect_equal(woce[["temperatureUnit"]], list(unit=expression(degree*C), scale="IPTS-68"))
        expect_equal(woce[["salinityUnit"]], list(unit=expression(), scale="PSS-78"))
        expect_equal(woce[["oxygenUnit"]], list(unit=expression(mu*mol/kg), scale=""))
})}