Test Trac #7995

testsuite/tests/simplCore/should_compile/Makefile

@@ -103,3 +103,8 @@ T7796:
 	'$(TEST_HC)' $(TEST_HC_OPTS) -O1 -c T7796.hs -ddump-prep > T7796.prep
 	(grep -q '$$w$$sgo' T7796.prep || echo 'could not find $$w$$sgo; compilation was not as expected')
 	-grep -c ' $$sgo' T7796.prep
+
+T7995:
+	$(RM) -f T7995.hi T7995.o
+	'$(TEST_HC)' $(TEST_HC_OPTS) -package ghc -ddump-rule-firings -c -O T7995.hs | grep 'text/str'
+

testsuite/tests/simplCore/should_compile/T7995.hs

+-- We import Pretty from package ghc
+module T7995 where
+import Pretty
+
+
+foo = text "test"

testsuite/tests/simplCore/should_compile/T7995.stdout

+Rule fired: text/str

testsuite/tests/simplCore/should_compile/all.T

@@ -179,3 +179,8 @@ test('T7702',
      compile, 
      ['-v0 -package-db T7702plugin/pkg.T7702/local.package.conf -fplugin T7702Plugin -package T7702plugin ' + config.ghci_way_flags])
 
+test('T7995',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T7995'])
+