# 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 = ""))
    })
}