Skip to content

Commit

Permalink
Remove redundant import
Browse files Browse the repository at this point in the history
  • Loading branch information
newmana committed Aug 8, 2021
1 parent 8f794ff commit feb9f96
Showing 1 changed file with 18 additions and 21 deletions.
39 changes: 18 additions & 21 deletions test/Data/Internal/Wkb/PolygonSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -3,18 +3,15 @@
module Data.Internal.Wkb.PolygonSpec where

import qualified Data.ByteString.Builder as ByteStringBuilder
import Data.Monoid ((<>))
import Test.Hspec (Spec, describe, it, shouldBe)

import qualified Data.SpecHelper as SpecHelper
import qualified Data.Wkb as Wkb
import qualified Data.SpecHelper as SpecHelper
import qualified Data.Wkb as Wkb
import Test.Hspec (Spec, describe, it, shouldBe)

spec :: Spec
spec = do
testWkbPolygonParsing
testWkbMultiPolygonParsing


-- Test Wkb Polygon Parsing

testWkbPolygonParsing :: Spec
Expand All @@ -31,21 +28,21 @@ testInvalidWkbPolyonParsing :: Spec
testInvalidWkbPolyonParsing =
it "does not parse bad wkb polygon" $
Wkb.parseByteString exampleBadWkbPolygon `shouldBe` Left "Could not parse wkb: First and last points of linear ring are different: first=GeoPointXY (PointXY {_xyX = 1.0, _xyY = 2.0}) last=GeoPointXY (PointXY {_xyX = 7.0, _xyY = 8.0})"
where exampleBadWkbPolygon =
ByteStringBuilder.toLazyByteString $
ByteStringBuilder.word8 0
<> ByteStringBuilder.int32BE 3
<> ByteStringBuilder.int32BE 1
<> ByteStringBuilder.int32BE 4
<> ByteStringBuilder.doubleBE 1.0
<> ByteStringBuilder.doubleBE 2.0
<> ByteStringBuilder.doubleBE 3.0
<> ByteStringBuilder.doubleBE 4.0
<> ByteStringBuilder.doubleBE 5.0
<> ByteStringBuilder.doubleBE 6.0
<> ByteStringBuilder.doubleBE 7.0
<> ByteStringBuilder.doubleBE 8.0

where
exampleBadWkbPolygon =
ByteStringBuilder.toLazyByteString $
ByteStringBuilder.word8 0
<> ByteStringBuilder.int32BE 3
<> ByteStringBuilder.int32BE 1
<> ByteStringBuilder.int32BE 4
<> ByteStringBuilder.doubleBE 1.0
<> ByteStringBuilder.doubleBE 2.0
<> ByteStringBuilder.doubleBE 3.0
<> ByteStringBuilder.doubleBE 4.0
<> ByteStringBuilder.doubleBE 5.0
<> ByteStringBuilder.doubleBE 6.0
<> ByteStringBuilder.doubleBE 7.0
<> ByteStringBuilder.doubleBE 8.0

-- Test Wkb MultiPolygon Parsing

Expand Down

0 comments on commit feb9f96

Please sign in to comment.