From 6ba6a881c58459008f02fb4816f8dec2800c2b73 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?H=C3=A9cate?= Date: Tue, 30 Jun 2020 23:09:23 +0200 Subject: Implement `fullCompilerVersion` Follow-up of https://gitlab.haskell.org/ghc/ghc/-/issues/18403 This MR adds `fullCompilerVersion`, a function that shares the same backend as the `--numeric-version` GHC flag, exposing a full, three-digit version datatype. --- libraries/base/tests/SystemInfoTest.hs | 13 +++++++++++++ libraries/base/tests/SystemInfoTest.stdout | 1 + libraries/base/tests/all.T | 1 + 3 files changed, 15 insertions(+) create mode 100644 libraries/base/tests/SystemInfoTest.hs create mode 100644 libraries/base/tests/SystemInfoTest.stdout (limited to 'libraries/base/tests') diff --git a/libraries/base/tests/SystemInfoTest.hs b/libraries/base/tests/SystemInfoTest.hs new file mode 100644 index 0000000000..ef8c829df4 --- /dev/null +++ b/libraries/base/tests/SystemInfoTest.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE CPP #-} +module Main where + +import Data.Version (showVersion) +import System.Info (fullCompilerVersion) + +main :: IO () +main = if textualVersion == macroVersion + then putStrLn "Match" + else putStrLn $ "[!]" <> textualVersion <> "should be equal to " <> macroVersion + where + macroVersion = __GLASGOW_HASKELL_FULL_VERSION__ + textualVersion = showVersion fullCompilerVersion diff --git a/libraries/base/tests/SystemInfoTest.stdout b/libraries/base/tests/SystemInfoTest.stdout new file mode 100644 index 0000000000..1796dc2720 --- /dev/null +++ b/libraries/base/tests/SystemInfoTest.stdout @@ -0,0 +1 @@ +Match diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T index 4a29e8b571..c29b5b3a63 100644 --- a/libraries/base/tests/all.T +++ b/libraries/base/tests/all.T @@ -12,6 +12,7 @@ def normalise_quotes (str): #-------------------------------------- # Test functions #-------------------------------------- +test('SystemInfoTest', normal, compile_and_run, ['']) test('readFloat', exit_code(1), compile_and_run, ['']) test('enumDouble', normal, compile_and_run, ['']) test('enumRatio', normal, compile_and_run, ['']) -- cgit v1.2.1