More progress... but more things I need to calculate that I don't yet know how.

This commit is contained in:
Simon Brooke 2026-08-11 13:59:22 +01:00
parent ccfc47eb79
commit d679bcf781
11 changed files with 137 additions and 26 deletions

View file

@ -0,0 +1,13 @@
(ns humidity.absolute-test
(:require [clojure.test :refer [deftest is testing]]
[humidity.constants :refer [celsius-offset]]
[humidity.absolute :refer [abs-humidity]]))
(deftest absolute-humidity-test
(testing "definitional"
(let [min-expected 39.58
max-expected 39.59
actual (abs-humidity :relative-humidity 100
:saturation-pressure 56.29
:temperature-kelvin (+ 35 celsius-offset))]
(is (< min-expected actual max-expected)))))

View file

@ -0,0 +1 @@
(ns humidity.dew-point-test)

View file

@ -0,0 +1,11 @@
(ns humidity.relative-test
(:require [clojure.test :refer [deftest is testing]]
[humidity.constants :refer [celsius-offset]]
[humidity.relative :refer [rel-humidity]]))
(deftest relative-humidity-test
(testing "Online examples"
(let [min-expected 99
max-expected 101
actual (rel-humidity :dew-point 35 :temperature-celsius 35)]
(is (< min-expected actual max-expected)))))

View file

@ -0,0 +1,10 @@
(ns humidity.saturation-vp-test(:require [clojure.test :refer [deftest is testing]]
[humidity.constants :refer [celsius-offset]]
[humidity.saturation-vp :refer [saturation-vp saturation-vp-tetens]]))
(deftest saturation-vp-test
(testing "from online sources"
(let [min-expected 5622
max-expected 5629
actual (saturation-vp {:temperature-celsius 35})]
(is (< min-expected actual max-expected)))))