mirror of
https://github.com/github/semantic.git
synced 2024-12-19 04:41:47 +03:00
19 lines
711 B
Haskell
19 lines
711 B
Haskell
module Data.Graph.Spec (spec) where
|
|
|
|
import SpecHelpers
|
|
|
|
import Data.Graph.Algebraic
|
|
import qualified Algebra.Graph.Class as Class
|
|
|
|
spec :: Spec
|
|
spec = describe "Data.Graph" $
|
|
it "has a valid topological sort" $ do
|
|
let topo = topologicalSort
|
|
topo (Class.path "ab") `shouldBe` "ba"
|
|
topo (Class.path "abc") `shouldBe` "cba"
|
|
topo ((vertex 'a' `connect` vertex 'b') `connect` vertex 'c') `shouldBe` "cba"
|
|
topo (vertex 'a' `connect` (vertex 'b' `connect` vertex 'c')) `shouldBe` "cba"
|
|
topo ((vertex 'a' `connect` vertex 'b') <> (vertex 'a' `connect` vertex 'c')) `shouldBe` "cba"
|
|
topo (Class.path "abd" <> Class.path "acd") `shouldBe` "dcba"
|
|
topo (Class.path "aba") `shouldBe` "ab"
|