summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorMoritz Angermann <moritz.angermann@gmail.com>2021-02-13 11:41:47 +0800
committerMoritz Angermann <moritz.angermann@gmail.com>2021-03-21 21:04:42 -0400
commit0cbdba2768d84a0f6832ae5cf9ea1e98efd739da (patch)
treec233ed1c8673782cfabae7bf0437606c6ead46a7 /testsuite
parentadbaa9a9e3d952d21be74178e2e4405e0777d456 (diff)
downloadhaskell-0cbdba2768d84a0f6832ae5cf9ea1e98efd739da.tar.gz
[ci/arm/darwin/testsuite] Forwards ports from GHC-8.10
This is a set of forward ports (cherry-picks) from 8.10 - a7d22795ed [ci] Add support for building on aarch64-darwin - 5109e87e13 [testlib/driver] denoise - 307d34945b [ci] default value for CONFIGURE_ARGS - 10a18cb4e0 [testsuite] mark ghci056 as fragile - 16c13d5acf [ci] Default value for MAKE_ARGS - ab571457b9 [ci/build] Copy config.sub around - 251892b98f [ci/darwin] bump nixpkgs rev - 5a6c36ecb4 [testsuite/darwin] fix conc059 - aae95ef0c9 [ci] add timing info - 3592d1104c [Aarch64] No div-by-zero; disable test. - 57671071ad [Darwin] mark stdc++ tests as broken - 33c4d49754 [testsuite] filter out superfluous dylib warnings - 4bea83afec [ci/nix-shell] Add Foundation and Security - 6345530062 [testsuite/json2] Fix failure with LLVM backends - c3944bc89d [ci/nix-shell] [Darwin] Stop the ld warnings about libiconv. - b821fcc714 [testsuite] static001 is not broken anymore. - f7062e1b0c [testsuite/arm64] fix section_alignment - 820b076698 [darwin] stop the DYLD_LIBRARY_PATH madness - 07b1af0362 [ci/nix-shell] uniquify NIX_LDFLAGS{_FOR_TARGET} As well as a few additional fixups needed to make this block compile: - Fixup all.T - Set CROSS_TARGET, BROKEN_TESTS, XZ, RUNTEST_ARGS, default value. - [ci] shell.nix bump happy
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/driver/cpu_features.py5
-rw-r--r--testsuite/driver/runtests.py7
-rw-r--r--testsuite/driver/testlib.py27
-rw-r--r--testsuite/tests/concurrent/should_run/conc059_c.c2
-rw-r--r--testsuite/tests/driver/all.T11
-rw-r--r--testsuite/tests/ghci/linking/all.T21
-rwxr-xr-xtestsuite/tests/ghci/scripts/all.T1
-rw-r--r--testsuite/tests/rts/all.T5
-rw-r--r--testsuite/tests/rts/linker/all.T2
9 files changed, 53 insertions, 28 deletions
diff --git a/testsuite/driver/cpu_features.py b/testsuite/driver/cpu_features.py
index 7b4340b61c..6e32d3b445 100644
--- a/testsuite/driver/cpu_features.py
+++ b/testsuite/driver/cpu_features.py
@@ -29,7 +29,9 @@ def get_cpu_features():
return flags
elif config.os == 'darwin':
- out = subprocess.check_output(['sysctl', 'hw']).decode('UTF-8')
+ # we hardcode the sysctl path, otherwise we rely on /usr/sbin being in
+ # path.
+ out = subprocess.check_output(['/usr/sbin/sysctl', 'hw']).decode('UTF-8')
features = set()
def check_feature(darwin_name, our_name=None):
if re.search(r'hw\.optional.%s:\s*1' % darwin_name, out) is not None:
@@ -66,4 +68,3 @@ if __name__ == '__main__':
import sys
config.os = sys.argv[1]
print(get_cpu_features())
-
diff --git a/testsuite/driver/runtests.py b/testsuite/driver/runtests.py
index d4425b5da5..ac0d4f7100 100644
--- a/testsuite/driver/runtests.py
+++ b/testsuite/driver/runtests.py
@@ -266,7 +266,7 @@ def format_path(path):
# On Windows we need to set $PATH to include the paths to all the DLLs
# in order for the dynamic library tests to work.
-if windows or darwin:
+if windows:
pkginfo = getStdout([config.ghc_pkg, 'dump'])
topdir = config.libdir
if windows:
@@ -284,12 +284,9 @@ if windows or darwin:
if path.startswith('"'):
path = re.sub('^"(.*)"$', '\\1', path)
path = re.sub('\\\\(.)', '\\1', path)
- if windows:
+
path = format_path(path)
ghc_env['PATH'] = os.pathsep.join([path, ghc_env.get("PATH", "")])
- else:
- # darwin
- ghc_env['DYLD_LIBRARY_PATH'] = os.pathsep.join([path, ghc_env.get("DYLD_LIBRARY_PATH", "")])
testopts_local.x = TestOptions()
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index b5d2744e58..3c82a7de2f 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -1809,9 +1809,10 @@ def interpreter_run(name: TestName,
# check the exit code
if exit_code != getTestOpts().exit_code:
- print('Wrong exit code for ' + name + '(' + way + ') (expected', getTestOpts().exit_code, ', actual', exit_code, ')')
- dump_stdout(name)
- dump_stderr(name)
+ if config.verbose >= 1 and _expect_pass(way):
+ print('Wrong exit code for ' + name + '(' + way + ') (expected', getTestOpts().exit_code, ', actual', exit_code, ')')
+ dump_stdout(name)
+ dump_stderr(name)
message = format_bad_exit_code_message(exit_code)
return failBecause(message,
stderr=read_stderr(name),
@@ -2236,9 +2237,14 @@ def normalise_errmsg(s: str) -> str:
# and not understood by older binutils (ar, ranlib, ...)
s = modify_lines(s, lambda l: re.sub('^(.+)warning: (.+): unsupported GNU_PROPERTY_TYPE \(5\) type: 0xc000000(.*)$', '', l))
- # filter out nix garbage, that just keeps on showing up as errors on darwin
- s = modify_lines(s, lambda l: re.sub('^(.+)\.dylib, ignoring unexpected dylib file$','', l))
-
+ s = re.sub('ld: warning: passed .* min versions \(.*\) for platform macOS. Using [\.0-9]+.','',s)
+ s = re.sub('ld: warning: -sdk_version and -platform_version are not compatible, ignoring -sdk_version','',s)
+ # ignore superfluous dylibs passed to the linker.
+ s = re.sub('ld: warning: .*, ignoring unexpected dylib file\n','',s)
+ # ignore LLVM Version mismatch garbage; this will just break tests.
+ s = re.sub('You are using an unsupported version of LLVM!.*\n','',s)
+ s = re.sub('Currently only [\.0-9]+ is supported. System LLVM version: [\.0-9]+.*\n','',s)
+ s = re.sub('We will try though\.\.\..*\n','',s)
return s
# normalise a .prof file, so that we can reasonably compare it against
@@ -2312,6 +2318,15 @@ def normalise_output( s: str ) -> str:
# ghci outputs are pretty unstable with -fexternal-dynamic-refs, which is
# requires for -fPIC
s = re.sub(' -fexternal-dynamic-refs\n','',s)
+ s = re.sub('ld: warning: passed .* min versions \(.*\) for platform macOS. Using [\.0-9]+.','',s)
+ s = re.sub('ld: warning: -sdk_version and -platform_version are not compatible, ignoring -sdk_version','',s)
+ # ignore superfluous dylibs passed to the linker.
+ s = re.sub('ld: warning: .*, ignoring unexpected dylib file\n','',s)
+ # ignore LLVM Version mismatch garbage; this will just break tests.
+ s = re.sub('You are using an unsupported version of LLVM!.*\n','',s)
+ s = re.sub('Currently only [\.0-9]+ is supported. System LLVM version: [\.0-9]+.*\n','',s)
+ s = re.sub('We will try though\.\.\..*\n','',s)
+
return s
def normalise_asm( s: str ) -> str:
diff --git a/testsuite/tests/concurrent/should_run/conc059_c.c b/testsuite/tests/concurrent/should_run/conc059_c.c
index 58cb595073..89532caf4c 100644
--- a/testsuite/tests/concurrent/should_run/conc059_c.c
+++ b/testsuite/tests/concurrent/should_run/conc059_c.c
@@ -5,6 +5,8 @@
#include <stdlib.h>
#include <errno.h>
#include <stdio.h>
+// stdlib is needed for exit()
+#include <stdlib.h>
#if mingw32_HOST_OS
#include <windows.h>
#else
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 94ecb3006c..ad2a477f74 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -121,7 +121,8 @@ else:
only_darwin = skip
test('static001', [extra_files(['Static001.hs']),
- only_darwin, expect_broken(8127)],
+ only_darwin,
+ when(arch('x86_64'), expect_broken(8127))],
makefile_test, ['static001'])
test('dynHelloWorld',
@@ -260,8 +261,12 @@ test('T12955', normal, makefile_test, [])
test('T12971', [when(opsys('mingw32'), fragile(17945)), ignore_stdout], makefile_test, [])
test('json', normal, compile_fail, ['-ddump-json'])
-test('json2', normalise_version('base','ghc-prim'), compile, ['-ddump-types -ddump-json'])
-test('T16167', exit_code(1), run_command,
+
+# json2 test is sensitive to the LLVM not supported ouput from GHC. ANd the error
+# won't tell. It looks unrelated and is annoying to debug. Hence we disable the
+# warning to prevent spurious errors.
+test('json2', normalise_version('base','ghc-prim'), compile, ['-ddump-types -ddump-json -Wno-unsupported-llvm-version'])
+test('T16167', exit_code(1), run_command,
['{compiler} -x hs -e ":set prog T16167.hs" -ddump-json T16167.hs'])
test('T13604', [], makefile_test, [])
test('T13604a', [], makefile_test, [])
diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T
index 29a314238c..82a7822ea4 100644
--- a/testsuite/tests/ghci/linking/all.T
+++ b/testsuite/tests/ghci/linking/all.T
@@ -11,11 +11,12 @@ test('ghcilink002', [extra_files(['TestLink.hs', 'f.c']),
makefile_test, ['ghcilink002'])
test('ghcilink003',
- [unless(doing_ghci, skip),
- # libstdc++ is named differently on FreeBSD
- when(opsys('freebsd'), expect_broken(17739))],
- makefile_test,
- ['ghcilink003'])
+ [ unless(doing_ghci, skip),
+ # libstdc++ is named differently on FreeBSD
+ when(opsys('freebsd'), expect_broken(17739)),
+ when(opsys('darwin'), fragile(16083))
+ ], makefile_test, ['ghcilink003'])
+
test('ghcilink004',
[extra_files(['TestLink.hs', 'f.c']),
@@ -31,11 +32,11 @@ test('ghcilink005',
makefile_test, ['ghcilink005'])
test('ghcilink006',
- [unless(doing_ghci, skip),
- # libstdc++ is named differently on FreeBSD
- when(opsys('freebsd'), expect_broken(17739))],
- makefile_test,
- ['ghcilink006'])
+ [ unless(doing_ghci, skip),
+ # libstdc++ is named differently on FreeBSD
+ when(opsys('freebsd'), expect_broken(17739)),
+ when(opsys('darwin'), fragile(16083))
+ ], makefile_test, ['ghcilink006'])
test('T3333',
[unless(doing_ghci, skip),
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 64f87bc7e2..b3b2b20e60 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -328,4 +328,3 @@ test('T19197', normal, ghci_script, ['T19197.script'])
test('T19158', normal, ghci_script, ['T19158.script'])
test('T19279', normal, ghci_script, ['T19279.script'])
test('T19310', normal, ghci_script, ['T19310.script'])
-
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index 848314928a..085e4b1f12 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -53,6 +53,11 @@ test('divbyzero',
# behavior on division-by-zero (#10332).
omit_ways(llvm_ways),
when(not(have_ncg()), skip),
+ # Aarch64 does not have div-by-zero exceptions for sdiv/udiv.
+ # The only option would be to implement this in assembly with checks for
+ # each devision. Neither gcc, nor llvm do this as of right now. Microsoft
+ # apparently does so though?
+ when(arch('aarch64'), skip),
# Apparently the output can be different on different
# Linux setups, so just ignore it. As long as we get
# the right exit code we're OK.
diff --git a/testsuite/tests/rts/linker/all.T b/testsuite/tests/rts/linker/all.T
index e89a246165..7bf1d54762 100644
--- a/testsuite/tests/rts/linker/all.T
+++ b/testsuite/tests/rts/linker/all.T
@@ -12,7 +12,7 @@ test('unsigned_reloc_macho_x64',
test('section_alignment',
[
extra_files(['runner.c', 'section_alignment.c']),
- unless(opsys('darwin') and arch('x86_64'), expect_broken(13624))
+ unless(opsys('darwin'), expect_broken(13624))
],
run_command, ['$MAKE -s --no-print-directory section_alignment'])