diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-26 20:48:36 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-26 21:43:01 +0100 |
| commit | a9c93bdd8b027d6de09a3eada7721e7fd2d3e050 (patch) | |
| tree | 570c2cd55dc6943a929d8a5d9f9d80af6740935e /testsuite | |
| parent | 499ce291b6bab252c63f0791276c38012280f0b4 (diff) | |
| download | haskell-a9c93bdd8b027d6de09a3eada7721e7fd2d3e050.tar.gz | |
Implement MIN_VERSION and VERSION macros natively in GHC.
Test Plan: validate
Reviewers: austin, thomie, bgamari
Reviewed By: thomie
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1349
GHC Trac Issues: #10970
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/.gitignore | 3 | ||||
| -rw-r--r-- | testsuite/tests/driver/T10970.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/driver/T10970.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/driver/T10970a.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/driver/T10970a.stderr | 6 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 3 |
6 files changed, 25 insertions, 1 deletions
diff --git a/testsuite/.gitignore b/testsuite/.gitignore index a2b645429b..d9f7dccabd 100644 --- a/testsuite/.gitignore +++ b/testsuite/.gitignore @@ -532,6 +532,7 @@ mk/ghcconfig*_bin_ghc*.exe.mk /tests/driver/Hello062a.hs /tests/driver/Hello062b.hs /tests/driver/Hello062c.hs +/tests/driver/T10970 /tests/driver/T1959/E.hs /tests/driver/T1959/prog /tests/driver/T3007/A/Setup @@ -631,8 +632,8 @@ mk/ghcconfig*_bin_ghc*.exe.mk /tests/driver/recomp013/C.hs /tests/driver/recomp014/A.hs /tests/driver/recomp014/A1.hs -/tests/driver/recomp014/B.hsig /tests/driver/recomp014/B.hs-boot +/tests/driver/recomp014/B.hsig /tests/driver/recomp014/C.hs /tests/driver/recomp014/recomp014 /tests/driver/retc001/B.hs diff --git a/testsuite/tests/driver/T10970.hs b/testsuite/tests/driver/T10970.hs new file mode 100644 index 0000000000..9de4f80650 --- /dev/null +++ b/testsuite/tests/driver/T10970.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE CPP #-} +main = do + putStrLn VERSION_containers +#if MIN_VERSION_base(3,0,0) + putStrLn "OK" +#endif diff --git a/testsuite/tests/driver/T10970.stdout b/testsuite/tests/driver/T10970.stdout new file mode 100644 index 0000000000..2a2835658b --- /dev/null +++ b/testsuite/tests/driver/T10970.stdout @@ -0,0 +1,2 @@ +0.5.6.2 +OK diff --git a/testsuite/tests/driver/T10970a.hs b/testsuite/tests/driver/T10970a.hs new file mode 100644 index 0000000000..9de4f80650 --- /dev/null +++ b/testsuite/tests/driver/T10970a.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE CPP #-} +main = do + putStrLn VERSION_containers +#if MIN_VERSION_base(3,0,0) + putStrLn "OK" +#endif diff --git a/testsuite/tests/driver/T10970a.stderr b/testsuite/tests/driver/T10970a.stderr new file mode 100644 index 0000000000..74c6821168 --- /dev/null +++ b/testsuite/tests/driver/T10970a.stderr @@ -0,0 +1,6 @@ + +T10970a.hs:4:0: error: + error: missing binary operator before token "(" + #if MIN_VERSION_base(3,0,0) + ^ +`gcc' failed in phase `C pre-processor'. (Exit code: 1) diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index 08fdc1f6f6..f946055c21 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -456,3 +456,6 @@ test('T365', test('T9360a', normal, run_command, ['{compiler} --interactive -e ""']) test('T9360b', normal, run_command, ['{compiler} -e "" --interactive']) + +test('T10970', normal, compile_and_run, ['-hide-all-packages -package base -package containers']) +test('T10970a', normal, compile_fail, ['']) |