Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/fbcc44378400ec499e2e4c4f2a18707bee3ed6e4

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

commit fbcc44378400ec499e2e4c4f2a18707bee3ed6e4
Author: Simon Marlow <[email protected]>
Date:   Wed Nov 16 13:04:07 2011 +0000

    add req_shared_libs and use it

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

 driver/testlib.py   |    4 ++++
 tests/dynlibs/all.T |    9 ++++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/driver/testlib.py b/driver/testlib.py
index 1d5a0b7..78cef9b 100644
--- a/driver/testlib.py
+++ b/driver/testlib.py
@@ -117,6 +117,10 @@ def req_profiling( opts ):
     if not config.have_profiling:
         opts.expect = 'fail'
 
+def req_shared_libs( opts ):
+    if not config.have_shared_libs:
+        opts.expect = 'fail'
+
 def req_interp( opts ):
     if not config.have_interp:
         opts.expect = 'fail'
diff --git a/tests/dynlibs/all.T b/tests/dynlibs/all.T
index cb39476..2877c50 100644
--- a/tests/dynlibs/all.T
+++ b/tests/dynlibs/all.T
@@ -1,6 +1,7 @@
 
 test('T3807',
-     [extra_clean(['T3807Export_stub.c', 'T3807Export_stub.h',
+     [req_shared_libs,
+      extra_clean(['T3807Export_stub.c', 'T3807Export_stub.h',
                    'T3807Export_stub.o',
                    'T3807Export.o', 'T3807Export.hi',
                    'T3807-export.o', 'T3807-load.o',
@@ -11,7 +12,8 @@ test('T3807',
      ['$MAKE --no-print-directory -s T3807'])
 
 test('T4464',
-     [extra_clean(['T4464B.o', 'T4464C.o', 'T4464H.hi', 'T4464H.o',
+     [req_shared_libs,
+      extra_clean(['T4464B.o', 'T4464C.o', 'T4464H.hi', 'T4464H.o',
                    'T4464H_stub.c', 'T4464H_stub.h', 'T4464H_stub.o',
                    'HS4464.dll', 'HS4464.dll.a', 't4464.exe']),
       unless_os('mingw32', skip)],
@@ -19,7 +21,8 @@ test('T4464',
      ['$MAKE --no-print-directory -s T4464'])
 
 test('T5373',
-     [extra_clean(['T5373A.hi',  'T5373B.hi',  'T5373C.hi',  'T5373D.hi',
+     [req_shared_libs,
+      extra_clean(['T5373A.hi',  'T5373B.hi',  'T5373C.hi',  'T5373D.hi',
                    'T5373A.o',   'T5373B.o',   'T5373C.o',   'T5373D.o',
                    'T5373A',     'T5373B',     'T5373C',     'T5373D',
                    'T5373A.exe', 'T5373B.exe', 'T5373C.exe', 'T5373D.exe'])



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to