metar: fix "1 1/2SM" visibility.

[factor.git] / extra / metar / metar-tests.factor

diff --git a/extra/metar/metar-tests.factor b/extra/metar/metar-tests.factor
index c32435dbc3796bd7591241be4db6a566bdeee080..9f4d26d973b7513422fc08e5d5325ae08dcd9ce5 100644 (file)
--- a/extra/metar/metar-tests.factor
+++ b/extra/metar/metar-tests.factor
@@ -2,3 +2,5 @@ USING: metar.private tools.test ;
 
 { { "RAB05" "E30" "SNB20" "E55" } }
 [ "RAB05E30SNB20E55" split-recent-weather ] unit-test
+
+{ "1+1/2 statute miles" } [ "1 1/2SM" parse-visibility ] unit-test