Add test for #782

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

@@ -38,3 +38,4 @@ test('ghci025', normal, ghci_script, ['ghci025.script'])
 test('ghci026', namebase_if_compiler_lt('ghc','6.9', 'ghci026-6.8'), ghci_script, ['ghci026.script'])
 
 test('ghci027', normal, ghci_script, ['ghci027.script'])
+test('ghci028', normal, ghci_script, ['ghci028.script'])

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

+-- Testing that script input is interpreted at UTF-8
+:set -XUnicodeSyntax -XRankNTypes
+let (∘) :: ∀ α β γ . (β → γ) → (α → β) → (α → γ); (f ∘ g) x = f (g x)
+reverse ∘ map Data.Char.toUpper $ "fish"

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

+"HSIF"