tests/testthat/test-sounding_compute.R

In thunder: Computation and Visualisation of Atmospheric Convective Parameters

context("Check whether all elements in `sounding_compute` are named")

test_that("sounding_compute", {
        pressure = c(1000, 855, 700, 500, 300, 100, 10)
        altitude = c(0, 1500, 2500, 6000, 8500, 12000, 25000)
        temp = c(25, 10, 0, -15, -30, -50, -92)
        dpt = c(20, 5, -5, -30, -55, -80, -99)
        wd = c(0, 90, 135, 180, 270, 350, 0)
        ws = c(5, 10, 20, 30, 40, 5, 0)
        options(scipen = 999) # change formatting
        res = sounding_compute(pressure, altitude, temp, dpt, wd, ws, accuracy = 1)
        nams = length(unique(names(res)))
        no_of_elements = length(res)
        expect_equal(nams, no_of_elements) # the no. of named parameters should be > 200
})