More progress... but more things I need to calculate that I don't yet know how.
This commit is contained in:
parent
ccfc47eb79
commit
d679bcf781
11 changed files with 137 additions and 26 deletions
13
test/humidity/absolute_test.clj
Normal file
13
test/humidity/absolute_test.clj
Normal 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)))))
|
||||
1
test/humidity/dew_point_test.clj
Normal file
1
test/humidity/dew_point_test.clj
Normal file
|
|
@ -0,0 +1 @@
|
|||
(ns humidity.dew-point-test)
|
||||
11
test/humidity/relative_test.clj
Normal file
11
test/humidity/relative_test.clj
Normal 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)))))
|
||||
10
test/humidity/saturation_vp_test.clj
Normal file
10
test/humidity/saturation_vp_test.clj
Normal 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)))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue