Graham McIntire
079346a1b9
Some checks failed
Build and Push / Build and Push Docker Image (push) Failing after 4m38s
- F-level (228): replace length/1 with Enum.count_until/2 or pattern matching; convert Enum.flat_map+if to Enum.filter+Enum.map; fix identity case in narr_client - W-level (46): normalize dual atom/string key access in weather_layers, beacon_measurements, surface, skewt_live, contact_live/show; add :data_provider and weather-map assigns to ignored_assigns in credo config (consumed by child components credo can't trace); remove weak is_list assertion; remove explicit assert_receive timeout - R-level (6): replace 'This module provides...' moduledocs with meaningful descriptions - Also fix 4 compile-connected xref issues by deferring BandConfig.band_options() from module attribute to runtime Co-Authored-By: Claude <noreply@anthropic.com>
182 lines
6.5 KiB
Elixir
182 lines
6.5 KiB
Elixir
defmodule Microwaveprop.Weather.UwyoSoundingClientTest do
|
|
use ExUnit.Case, async: true
|
|
|
|
alias Microwaveprop.Weather.UwyoSoundingClient
|
|
|
|
@fixture File.read!("test/support/fixtures/uwyo_sounding_yyr.html")
|
|
|
|
describe "sounding_url/2" do
|
|
test "builds the correct URL for a 3-letter station code + datetime" do
|
|
url = UwyoSoundingClient.sounding_url("YYR", ~U[2026-04-13 00:00:00Z])
|
|
|
|
assert url ==
|
|
"https://weather.uwyo.edu/cgi-bin/sounding" <>
|
|
"?region=naconf&TYPE=TEXT%3ALIST" <>
|
|
"&YEAR=2026&MONTH=04&FROM=1300&TO=1300&STNM=YYR"
|
|
end
|
|
|
|
test "pads month and day-hour to two digits" do
|
|
url = UwyoSoundingClient.sounding_url("WSE", ~U[2026-01-05 12:00:00Z])
|
|
|
|
assert url =~ "MONTH=01"
|
|
assert url =~ "FROM=0512"
|
|
assert url =~ "TO=0512"
|
|
assert url =~ "STNM=WSE"
|
|
end
|
|
end
|
|
|
|
describe "parse_sounding_html/1" do
|
|
test "returns one sounding entry for a valid response" do
|
|
assert [sounding] = UwyoSoundingClient.parse_sounding_html(@fixture)
|
|
assert sounding.observed_at == ~U[2026-04-13 00:00:00Z]
|
|
assert Enum.count_until(sounding.profile, 21) == 21
|
|
end
|
|
|
|
test "parses the surface level with all fields populated" do
|
|
[sounding] = UwyoSoundingClient.parse_sounding_html(@fixture)
|
|
surface = hd(sounding.profile)
|
|
|
|
assert surface["pres"] == 1016.0
|
|
assert surface["hght"] == 36.0
|
|
assert surface["tmpc"] == -3.5
|
|
assert surface["dwpc"] == -9.5
|
|
assert surface["drct"] == 145.0
|
|
assert surface["sknt"] == 1.0
|
|
end
|
|
|
|
test "each level has the same key set (pres, hght, tmpc, dwpc, drct, sknt)" do
|
|
[sounding] = UwyoSoundingClient.parse_sounding_html(@fixture)
|
|
|
|
Enum.each(sounding.profile, fn level ->
|
|
assert Map.has_key?(level, "pres")
|
|
assert Map.has_key?(level, "hght")
|
|
assert Map.has_key?(level, "tmpc")
|
|
assert Map.has_key?(level, "dwpc")
|
|
assert Map.has_key?(level, "drct")
|
|
assert Map.has_key?(level, "sknt")
|
|
end)
|
|
end
|
|
|
|
test "levels with missing temp/dewpoint are omitted" do
|
|
# Lines like ' 1000.0 92' (only PRES + HGHT, rest blank) must not
|
|
# appear in the parsed profile because SoundingParams.derive/1 needs temp.
|
|
html = """
|
|
<H2>71119 WSE Edmonton Stony Plain Observations at 00Z 13 Apr 2026</H2>
|
|
<PRE>
|
|
-----------------------------------------------------------------------------
|
|
PRES HGHT TEMP DWPT RELH MIXR DRCT SKNT THTA THTE THTV
|
|
hPa m C C % g/kg deg knot K K K
|
|
-----------------------------------------------------------------------------
|
|
1000.0 92
|
|
920.0 766 2.2 -3.8 65 3.15 85 6 282.0 291.1 282.5
|
|
</PRE>
|
|
"""
|
|
|
|
[sounding] = UwyoSoundingClient.parse_sounding_html(html)
|
|
assert Enum.count_until(sounding.profile, 2) == 1
|
|
assert hd(sounding.profile)["pres"] == 920.0
|
|
end
|
|
|
|
test "returns an empty list when the response contains no PRE block" do
|
|
html = "Sorry, the server is too busy to process your request.\n"
|
|
assert UwyoSoundingClient.parse_sounding_html(html) == []
|
|
end
|
|
|
|
test "returns an empty list when the header is missing" do
|
|
html = "<HTML><PRE> 1000.0 30 25.0 20.0 50 0.0 180 10 0 0 0</PRE></HTML>"
|
|
assert UwyoSoundingClient.parse_sounding_html(html) == []
|
|
end
|
|
end
|
|
|
|
describe "fetch_sounding/2" do
|
|
test "returns parsed sounding on a 200 response" do
|
|
Req.Test.stub(UwyoSoundingClient, fn conn ->
|
|
Req.Test.text(conn, @fixture)
|
|
end)
|
|
|
|
assert {:ok, [sounding]} =
|
|
UwyoSoundingClient.fetch_sounding("YYR", ~U[2026-04-13 00:00:00Z])
|
|
|
|
assert sounding.observed_at == ~U[2026-04-13 00:00:00Z]
|
|
refute sounding.profile == []
|
|
end
|
|
|
|
test "returns an empty list when the server is busy" do
|
|
Req.Test.stub(UwyoSoundingClient, fn conn ->
|
|
Req.Test.text(conn, "Sorry, the server is too busy to process your request.\n")
|
|
end)
|
|
|
|
assert {:ok, []} = UwyoSoundingClient.fetch_sounding("YYR", ~U[2026-04-13 00:00:00Z])
|
|
end
|
|
|
|
test "returns an error on a non-200 response" do
|
|
Req.Test.stub(UwyoSoundingClient, fn conn ->
|
|
Plug.Conn.send_resp(conn, 503, "Service Unavailable")
|
|
end)
|
|
|
|
assert {:error, "UWYO sounding HTTP 503"} =
|
|
UwyoSoundingClient.fetch_sounding("YYR", ~U[2026-04-13 00:00:00Z])
|
|
end
|
|
end
|
|
|
|
describe "parse_sounding_html/1 edge cases" do
|
|
test "returns [] for each month abbreviation the header parser doesn't recognise" do
|
|
# Two valid-ish fake bodies with corrupt month tokens. The parser
|
|
# should skip both (no raise, no silent garbage sounding).
|
|
for bad_month <- ["Foo", "NotAMonth", "", "Marchington"] do
|
|
html = """
|
|
<H2>71816 YYR Goose Bay Observations at 00Z 13 #{bad_month} 2026</H2>
|
|
<PRE>
|
|
1000.0 92 25.0 20.0
|
|
</PRE>
|
|
"""
|
|
|
|
assert [] = UwyoSoundingClient.parse_sounding_html(html)
|
|
end
|
|
end
|
|
|
|
test "every month abbreviation routes to its correct number" do
|
|
months = [
|
|
{"Jan", 1, ~U[2026-01-13 00:00:00Z]},
|
|
{"Feb", 2, ~U[2026-02-13 00:00:00Z]},
|
|
{"Mar", 3, ~U[2026-03-13 00:00:00Z]},
|
|
{"Apr", 4, ~U[2026-04-13 00:00:00Z]},
|
|
{"May", 5, ~U[2026-05-13 00:00:00Z]},
|
|
{"Jun", 6, ~U[2026-06-13 00:00:00Z]},
|
|
{"Jul", 7, ~U[2026-07-13 00:00:00Z]},
|
|
{"Aug", 8, ~U[2026-08-13 00:00:00Z]},
|
|
{"Sep", 9, ~U[2026-09-13 00:00:00Z]},
|
|
{"Oct", 10, ~U[2026-10-13 00:00:00Z]},
|
|
{"Nov", 11, ~U[2026-11-13 00:00:00Z]},
|
|
{"Dec", 12, ~U[2026-12-13 00:00:00Z]}
|
|
]
|
|
|
|
for {abbr, _num, expected} <- months do
|
|
html = """
|
|
<H2>71816 YYR Goose Bay Observations at 00Z 13 #{abbr} 2026</H2>
|
|
<PRE>
|
|
1000.0 92 25.0 20.0 180 5
|
|
</PRE>
|
|
"""
|
|
|
|
assert [sounding] = UwyoSoundingClient.parse_sounding_html(html)
|
|
assert sounding.observed_at == expected
|
|
end
|
|
end
|
|
|
|
test "lines shorter than the 28-char min width are skipped without raising" do
|
|
html = """
|
|
<H2>71816 YYR Goose Bay Observations at 00Z 13 Apr 2026</H2>
|
|
<PRE>
|
|
too short
|
|
1000.0 92 25.0 20.0 180 5
|
|
</PRE>
|
|
"""
|
|
|
|
assert [sounding] = UwyoSoundingClient.parse_sounding_html(html)
|
|
# Only the well-formed row survived.
|
|
assert Enum.count_until(sounding.profile, 2) == 1
|
|
assert hd(sounding.profile)["pres"] == 1000.0
|
|
end
|
|
end
|
|
end
|