add test for #1468

testsuite/tests/ghc-regress/ghci/scripts/all.T

@@ -30,3 +30,5 @@ test('ghci019', normal, ghci_script, ['ghci019.script'])
 test('ghci020', normal, ghci_script, ['ghci020.script'])
 test('ghci021', normal, ghci_script, ['ghci021.script'])
 test('ghci022', normal, ghci_script, ['ghci022.script'])
+
+test('ghci026', normal, ghci_script, ['ghci026.script'])

testsuite/tests/ghc-regress/ghci/scripts/ghci026.script

+import Data.Maybe
+:browse
+:l ../prog002/A1.hs
+:browse
+:add ../prog002/B.hs
+:browse

testsuite/tests/ghc-regress/ghci/scripts/ghci026.stdout

+data Maybe a = Nothing | Just a
+maybe :: b -> (a -> b) -> Maybe a -> b
+isJust :: Maybe a -> Bool
+isNothing :: Maybe a -> Bool
+fromJust :: Maybe a -> a
+fromMaybe :: a -> Maybe a -> a
+maybeToList :: Maybe a -> [a]
+listToMaybe :: [a] -> Maybe a
+catMaybes :: [Maybe a] -> [a]
+mapMaybe :: (a -> Maybe b) -> [a] -> [b]
+data T = A Int | B Float
+f :: Double -> Double
+f :: Double -> Double
+g :: Double -> Double
+h :: (Integral a) => a -> a