github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Stub in a test test of adjoinLines.

Browse Source
This commit is contained in:
Rob Rix 2015-12-03 11:44:42 -05:00
parent 0c34de972b
commit aa1db29cc7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Spec.hs
View File

@ -1,6 +1,10 @@
module Main where
import Split
import Test.Hspec
main :: IO ()
main = putStrLn "Test suite not yet implemented"
main = hspec $ do
describe "split" $ do
it "two single line elements should concatenate into a single line" $
adjoinLines ([], []) ([], []) `shouldBe` ([], [])