simon/humidity
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweaking of README, intro, and tests.

Browse source
This commit is contained in:
Simon Brooke 2026-08-14 13:10:12 +01:00
parent a377b3a845
commit 7bc8a845ab
5 changed files with 227 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

45
test/humidity/core_test.clj
View file

@ -25,21 +25,36 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(deftest resolution-test
(testing "resolution")
(let [expected {:absolute-humidity 3953.618101887827,
:actual-vapour-pressure 4765.10094206357,
:dew-point-celsius 35.00000000000001,
:pressure-millibars 1013.25,
:pressure-pascals 101325,
:relative-humidity 100,
:saturation-vapour-pressure 5622.488734516426,
:temperature-celsius 35,
:temperature-kelvin 308.15,
:volume 1.1281347245103424,
:wet-bulb-temperature-celsius 35.11625928298915}
packet {:relative-humidity 100 :temperature-celsius 35}
actual (resolution packet)]
(is (= actual expected))))
(testing "resolution"
(let [expected {:absolute-humidity 3953.618101887827,
:actual-vapour-pressure 4765.10094206357,
:dew-point-celsius 35.00000000000001,
:pressure-millibars 1013.25,
:pressure-pascals 101325,
:relative-humidity 100,
:saturation-vapour-pressure 5622.488734516426,
:temperature-celsius 35,
:temperature-kelvin 308.15,
:volume 1.1281347245103424,
:wet-bulb-temperature-celsius 35.11625928298915}]
(let [packet {:relative-humidity 100 :temperature-celsius 35}
actual (resolution packet)]
(is (= actual expected)))
(let [packet {:relative-humidity 100 :temperature-kelvin 308.15}
actual (resolution packet)]
(is (= actual expected)))
(let [packet {:relative-humidity 100 :temperature 35}
actual (resolution packet)]
(is (= actual expected)))
(let [packet {:relative-humidity 100 :pressure-pascals 101325 :temperature 35}
actual (resolution packet)]
(is (= actual expected)))
(let [packet {:relative-humidity 100 :pressure-millibars 1013.25 :temperature 35}
actual (resolution packet)]
(is (= actual expected)))
(let [packet {:absolute-humidity 3953.618101887827 :temperature-celsius 35}
actual (resolution packet)]
(is (= actual expected))))))
(deftest validation-test
(testing "validation"

7
test/humidity/saturation_vp_test.clj
View file

@ -1,5 +1,6 @@
(ns humidity.saturation-vp-test
(:require [clojure.test :refer [deftest is testing]]
[humidity.constants :refer [celsius-offset]]
[humidity.saturation-vapour-pressure :refer [saturation-vapour-pressure-fn]]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -28,4 +29,8 @@
(let [min-expected 5622
max-expected 5629
actual (saturation-vapour-pressure-fn {:temperature-celsius 35})]
(is (< min-expected actual max-expected)))))
(is (< min-expected actual max-expected)))
(let [min-expected 5622
max-expected 5629
actual (saturation-vapour-pressure-fn {:temperature-kelvin (+ celsius-offset 35)})]
(is (< min-expected actual max-expected)))))