[commit: ghc] master: testsuite: Add test for #14335 (5e8ea6a)

git at git.haskell.org git at git.haskell.org
Sun Jan 21 15:58:40 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5e8ea6a62e948bcc0da1279f06844fd1d8e979bd/ghc

>---------------------------------------------------------------

commit 5e8ea6a62e948bcc0da1279f06844fd1d8e979bd
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Thu Jan 18 18:23:06 2018 -0500

    testsuite: Add test for #14335
    
    Subscribers: rwbarton, thomie
    
    GHC Trac Issues: #14335
    
    Differential Revision: https://phabricator.haskell.org/D4202


>---------------------------------------------------------------

5e8ea6a62e948bcc0da1279f06844fd1d8e979bd
 testsuite/tests/plugins/Makefile | 5 +++++
 testsuite/tests/plugins/all.T    | 6 ++++++
 2 files changed, 11 insertions(+)

diff --git a/testsuite/tests/plugins/Makefile b/testsuite/tests/plugins/Makefile
index 1ff8d40..96443c9 100644
--- a/testsuite/tests/plugins/Makefile
+++ b/testsuite/tests/plugins/Makefile
@@ -52,3 +52,8 @@ T12567a:
 	"$(TEST_HC)" $(TEST_HC_OPTS) $(ghcPluginWayFlags) --make T12567a.hs -package-db simple-plugin/pkg.T12567a/local.package.conf -hide-all-plugin-packages -plugin-package simple-plugin 1>&2
 	"$(TEST_HC)" $(TEST_HC_OPTS) $(ghcPluginWayFlags) --make T12567a.hs -package-db simple-plugin/pkg.T12567a/local.package.conf -hide-all-plugin-packages -plugin-package simple-plugin 2>&1 | grep "T12567a.hs, T12567a.o" 1>&2
 	"$(TEST_HC)" $(TEST_HC_OPTS) $(ghcPluginWayFlags) --make T12567b.hs -package-db simple-plugin/pkg.T12567a/local.package.conf -hide-all-plugin-packages -plugin-package simple-plugin 1>&2
+
+.PHONY: T14335
+T14335:
+	"$(TEST_HC)" $(TEST_HC_OPTS) $(ghcPluginWayFlags) -fexternal-interpreter --make -v0 plugins01.hs -package-db simple-plugin/pkg.plugins01/local.package.conf -fplugin Simple.Plugin -fplugin-opt Simple.Plugin:Irrelevant_Option -hide-all-plugin-packages -plugin-package simple-plugin
+	./plugins01
diff --git a/testsuite/tests/plugins/all.T b/testsuite/tests/plugins/all.T
index 5f53531..0e523f0 100644
--- a/testsuite/tests/plugins/all.T
+++ b/testsuite/tests/plugins/all.T
@@ -67,3 +67,9 @@ test('T12567a',
      [extra_files(['T12567b.hs', 'simple-plugin/']),
       pre_cmd('$MAKE -s --no-print-directory -C simple-plugin package.T12567a TOP={top}')],
      run_command, ['$MAKE -s --no-print-directory T12567a'])
+
+test('T14335',
+     [extra_files(['simple-plugin/', 'plugins01.hs']),
+      pre_cmd('$MAKE -s --no-print-directory -C simple-plugin package.plugins01 TOP={top}'),
+      expect_broken(14335)],
+     run_command, ['$MAKE -s --no-print-directory T14335'])



More information about the ghc-commits mailing list