Add test for type search

tests/Main.idr

@@ -65,7 +65,7 @@ idrisTests = MkTestPool []
        "interactive005", "interactive006", "interactive007", "interactive008",
        "interactive009", "interactive010", "interactive011", "interactive012",
        "interactive013", "interactive014", "interactive015", "interactive016",
-       "interactive017", "interactive018",
+       "interactive017", "interactive018", "interactive019",
        -- Interfaces
        "interface001", "interface002", "interface003", "interface004",
        "interface005", "interface006", "interface007", "interface008",

tests/idris2/interactive019/TypeSearch.idr

@@ -0,0 +1,7 @@
+
+-- test that defs from Strings are available.
+import Data.Strings
+
+-- same signature as a function pulled in from above import
+sameSig : Char -> String
+sameSig = singleton

tests/idris2/interactive019/expected

@@ -0,0 +1,26 @@
+1/1: Building TypeSearch (TypeSearch.idr)
+Main> prim__cast_CharString : (1 _ : Char) -> String
+
+Main.sameSig : Char -> String
+
+Data.Strings.singleton : Char -> String
+
+Prelude.Types.cast : Char -> String
+
+Prelude.Show.show : Char -> String
+Main> Prelude.const : a -> b -> a
+	 Constant function.  Ignores its second argument.
+
+Totality: total
+Main> Prelude.toUpper : Char -> Char
+	 Convert a letter to the corresponding upper-case letter, if any.
+	 Non-letters are ignored.
+
+Totality: total
+
+Prelude.toLower : Char -> Char
+	 Convert a letter to the corresponding lower-case letter, if any.
+	 Non-letters are ignored.
+
+Totality: total
+Main> Bye for now!

tests/idris2/interactive019/input

@@ -0,0 +1,4 @@
+:s Char -> String
+:s a -> b -> a
+:s Char -> Char
+:q

tests/idris2/interactive019/run

@@ -0,0 +1,3 @@
+$1 --no-banner --no-color --console-width 0 TypeSearch.idr < input
+
+rm -rf build