Add new shelltestrunner based test-suite

shelltest/browse/MyModule.hs

@@ -0,0 +1,11 @@
+module MyModule where
+
+data MyType = MyConstructor1
+            | MyConstructor2
+
+some_num = 0
+some_char = ' '
+some_string = "bar"
+
+($?>>/) :: Int -> Int -> Int
+a $?>>/ b = a + b

shelltest/browse/browse-project.testtpl

@@ -0,0 +1,62 @@
+
+cabal exec -- ghc-mod browse MyModule | sort
+>>>
+MyConstructor1
+MyConstructor2
+MyType
+some_char
+some_num
+some_string
+>>>= 0
+
+cabal exec -- ghc-mod browse -q MyModule | sort
+>>>
+MyModule.MyConstructor1
+MyModule.MyConstructor2
+MyModule.MyType
+MyModule.some_char
+MyModule.some_num
+MyModule.some_string
+>>>= 0
+
+cabal exec -- ghc-mod browse -d MyModule | sort
+>>>
+MyConstructor1 :: MyType
+MyConstructor2 :: MyType
+MyType :: data MyType
+some_char :: Char
+some_num :: Integer
+some_string :: [Char]
+>>>= 0
+
+cabal exec -- ghc-mod browse -o MyModule | sort
+>>>
+($?>>/)
+MyConstructor1
+MyConstructor2
+MyType
+some_char
+some_num
+some_string
+>>>= 0
+
+cabal exec -- ghc-mod browse -p MyModule | sort
+>>>
+MyConstructor1 -- from:MyType
+MyConstructor2 -- from:MyType
+MyType
+some_char
+some_num
+some_string
+>>>= 0
+
+cabal exec -- ghc-mod browse -odpq MyModule | sort
+>>>
+MyModule.($?>>/) :: Int -> Int -> Int
+MyModule.MyConstructor1 :: MyType -- from:MyType
+MyModule.MyConstructor2 :: MyType -- from:MyType
+MyModule.MyType :: data MyType
+MyModule.some_char :: Char
+MyModule.some_num :: Integer
+MyModule.some_string :: [Char]
+>>>= 0

shelltest/browse/cabal/MyModule.hs

@@ -0,0 +1 @@
+../MyModule.hs

shelltest/browse/cabal/browse-cabal.cabal

@@ -0,0 +1,9 @@
+name:                browse-cabal
+version:             0
+build-type:          Simple
+cabal-version:       >=1.2
+
+library
+  hs-source-dirs:      .
+  build-depends:       base
+  exposed-modules:     MyModule

shelltest/browse/cabal/browse-cabal.test

@@ -0,0 +1 @@
+../browse-project.testtpl

shelltest/browse/plain/MyModule.hs

@@ -0,0 +1 @@
+../MyModule.hs

shelltest/browse/plain/browse-plain.test

@@ -0,0 +1,4 @@
+# # TODO: make this work
+# cabal exec -- ghc-mod browse MyModule
+# >>>
+# >>>= !0

shelltest/browse/sandbox/MyModule.hs

@@ -0,0 +1 @@
+../MyModule.hs

shelltest/browse/sandbox/browse-sandbox.test

@@ -0,0 +1,4 @@
+# # TODO: make this work
+# cabal exec -- ghc-mod browse MyModule
+# >>>
+# >>>= !0

shelltest/browse/sandbox/test-setup.sh

@@ -0,0 +1,8 @@
+#!/bin/sh
+
+set -e
+
+rm cabal.sandbox.config
+rm -r .cabal-sandbox
+
+cabal sandbox init