haskell-neo4j-client 0.3.1.2 → 0.3.1.3

raw patch · 2 files changed

+10/−4 lines, 2 filesdep ~QuickCheckPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: QuickCheck

API changes (from Hackage documentation)

Files

• haskell-neo4j-client.cabal +2/−2
• tests/IntegrationTests.hs +8/−2

@@ -1,5 +1,5 @@ name:                haskell-neo4j-client-version:             0.3.1.2+version:             0.3.1.3 synopsis:            A Haskell neo4j client description:              Library to interact with Neo4j databases. @@ -41,7 +41,7 @@                    , bytestring                  == 0.10.*                    , test-framework              == 0.8.*                    , test-framework-quickcheck2  == 0.3.*-                   , QuickCheck                  == 2.7.*+                   , QuickCheck                  >= 2.7.0                    , test-framework-hunit        == 0.3.*                    , test-framework-th           == 0.2.*                    , HUnit                       == 1.2.*

@@ -1692,9 +1692,15 @@     let checkPath = \p nodes rels -> do         neo4jEqual (L.sort $ map _getNode nodes) (L.sort $ T.pathNodes p)         neo4jEqual (L.sort $ map _getRel rels) (L.sort $ T.pathRels p)+    let checkPath' = \p nodes rels -> (L.sort $ map _getNode nodes) == (L.sort $ T.pathNodes p) &&+                                      (L.sort $ map _getRel rels) == (L.sort $ T.pathRels p)     checkPath (ps !! 0) ["Root"] []-    checkPath (ps !! 1) ["Root", "Johan"] ["Root-Johan"]-    checkPath (ps !! 2) ["Root", "Mattias"] ["Root-Mattias"]+    if checkPath' (ps !! 1) ["Root", "Johan"] ["Root-Johan"]+       then checkPath (ps !! 1) ["Root", "Johan"] ["Root-Johan"]+       else checkPath (ps !! 1) ["Root", "Mattias"] ["Root-Mattias"]+    if checkPath' (ps !! 2) ["Root", "Johan"] ["Root-Johan"]+       then checkPath (ps !! 2) ["Root", "Johan"] ["Root-Johan"]+       else checkPath (ps !! 2) ["Root", "Mattias"] ["Root-Mattias"]     cleanUpTraversalTest g  -- | Test a traversal with an unexisting start