Regularised the calling signature of the calculator functions.

This commit is contained in:
Simon Brooke 2026-08-11 18:38:35 +01:00
parent 37689df3e2
commit 91343b9c10
3 changed files with 38 additions and 30 deletions

View file

@ -8,7 +8,7 @@
(let [expected 13.7
temperature 20
rel-humidity 50
actual (wet-bulb-temperature temperature rel-humidity)]
actual (wet-bulb-temperature :temperature temperature :relative-humidity rel-humidity)]
(println (format "Expected: %s; actual: %s" expected actual))
(is (< (abs (- expected actual)) 0.001))))
@ -17,7 +17,7 @@
max-expected 33
temperature 37
rel-humidity 70
actual (wet-bulb-temperature temperature rel-humidity)]
actual (wet-bulb-temperature :temperature temperature :relative-humidity rel-humidity)]
(println (format "Expected: %s...%s; actual: %s" min-expected max-expected actual))
(is (< min-expected actual max-expected)))
@ -25,7 +25,7 @@
max-expected 36
temperature 39.7
rel-humidity 70
actual (wet-bulb-temperature temperature rel-humidity)]
actual (wet-bulb-temperature :temperature temperature :relative-humidity rel-humidity)]
(println (format "Expected: %s...%s; actual: %s" min-expected max-expected actual))
(is (< min-expected actual max-expected)))
@ -34,7 +34,7 @@
max-expected 34
temperature 40
rel-humidity 60
actual (wet-bulb-temperature temperature rel-humidity)]
actual (wet-bulb-temperature :temperature temperature :relative-humidity rel-humidity)]
(println (format "Expected: %s...%s; actual: %s" min-expected max-expected actual))
(is (< min-expected actual max-expected)))
@ -42,6 +42,6 @@
max-expected 35
temperature 51
rel-humidity 30
actual (wet-bulb-temperature temperature rel-humidity)]
actual (wet-bulb-temperature :temperature temperature :relative-humidity rel-humidity)]
(println (format "Expected: %s...%s; actual: %s" min-expected max-expected actual))
(is (< min-expected actual max-expected)))))
(is (< min-expected actual max-expected)))))