mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
12 lines
275 B
Haskell
12 lines
275 B
Haskell
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||
|
|
|
||
|
|
module Data.Range.Spec where
|
||
|
|
|
||
|
|
import Data.Range
|
||
|
|
import SpecHelpers
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = describe "Data.Range" $
|
||
|
|
prop "should have an associative Semigroup instance" $
|
||
|
|
\(a, b, c) -> a <> (b <> c) `shouldBe` (a <> b) <> (c :: Range)
|