Add new shelltestrunner based test-suite

shelltest/ShellTest.hs

@@ -0,0 +1,23 @@
+#!/usr/bin/env runhaskell
+-- ghc-mod: Making Haskell development *more* fun
+-- Copyright (C) 2017  Daniel Gröber <dxld ÄT darkboxed DOT org>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+module Main where
+
+import System.Exit
+import System.Process
+
+main = exitWith =<< rawSystem "shelltest" [ "--execdir", "shelltest/" ]

shelltest/browse.test

@@ -0,0 +1,11 @@
+cabal exec -- ghc-mod browse Data.Map
+>>> /differenceWithKey/
+>>>= 0
+
+cabal exec -- ghc-mod browse -d Data.Either
+>>> /^either :: \(a -> c\) -> \(b -> c\) -> Either a b -> c$/
+>>>= 0
+
+cabal exec -- ghc-mod browse -d Data.Either
+>>> /^Left :: a -> Either a b$/
+>>>= 0

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

shelltest/version.test

@@ -0,0 +1,7 @@
+cabal exec -- ghc-mod version
+>>> /^ghc-mod version [0-9.]+ compiled by GHC [0-9.]+/
+>>>= 0
+
+cabal exec -- ghc-mod --version
+>>> /^ghc-mod version [0-9.]+ compiled by GHC [0-9.]+/
+>>>= 0