File tree Expand file tree Collapse file tree 2 files changed +7
-1
lines changed Expand file tree Collapse file tree 2 files changed +7
-1
lines changed Original file line number Diff line number Diff line change @@ -4,7 +4,7 @@ All notable changes to this project will be documented in this file.
44The format is based on [ Keep a Changelog] ( http://keepachangelog.com/en/1.0.0/ )
55and this project adheres to the [ Haskell Package Versioning Policy] ( https://pvp.haskell.org/ ) .
66
7- ## [ 1.7.4] - 2021-??-??
7+ ## [ 1.7.4] - 2021-12-28
88
99- Add ` decodeUtf8Bytes ` to ` Net.IP ` .
1010- Fix IPv4 octet overflow bug (#74 )
Original file line number Diff line number Diff line change @@ -140,6 +140,12 @@ tests = testGroup "tests"
140140 , PH. testCase " S" $ IPv4. reserved (IPv4. ipv4 192 88 99 0 ) @=? True
141141 , PH. testCase " T" $ IPv4. reserved (IPv4. ipv4 192 0 1 0 ) @=? False
142142 ]
143+ , testGroup " private"
144+ [ PH. testCase " A" $ IPv4. private (IPv4. ipv4 198 73 8 38 ) @=? False
145+ , PH. testCase " B" $ IPv4. private (IPv4. ipv4 192 168 100 5 ) @=? True
146+ , PH. testCase " C" $ IPv4. private (IPv4. ipv4 10 0 0 0 ) @=? True
147+ , PH. testCase " D" $ IPv4. private (IPv4. ipv4 10 255 255 255 ) @=? True
148+ ]
143149 ]
144150 , testGroup " IPv6 Range Operations"
145151 [ testProperty " Idempotence of normalizing IPv6 range"
You can’t perform that action at this time.
0 commit comments