Test for Trac #1930

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

@@ -48,6 +48,7 @@ test('ghci029', normal, ghci_script, ['ghci029.script'])
 test('ghci030', normal, ghci_script, ['ghci030.script'])
 test('ghci031', expect_broken(2138), ghci_script, ['ghci031.script'])
 test('ghci032', if_compiler_lt('ghc', '6.9', skip), ghci_script, ['ghci032.script'])
+test('ghci033', normal, ghci_script, ['ghci033.script'])
 
 test('1914',
      extra_clean(['T1914A.hs', 'T1914B.hs']),

testsuite/tests/ghc-regress/ghci/scripts/ghci033.hs

+-- Test Trac #1930: display of infix constructors
+module Test where
+
+data Foo = Foo1 Int 
+         | Int `InfixCon` Bool
\ No newline at end of file

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

+:l ghci033
+:i Foo

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

+data Foo = Foo1 Int | Int `InfixCon` Bool
+  	-- Defined at ghci033.hs:4:5-7