testlib.py 75.8 KB
Newer Older
1
#
2 3 4
# (c) Simon Marlow 2002
#

5
from __future__ import print_function
6

7
import shutil
8 9
import sys
import os
10
import errno
11 12 13
import string
import re
import traceback
14 15
import time
import datetime
16
import copy
17
import glob
ian@well-typed.com's avatar
ian@well-typed.com committed
18
from math import ceil, trunc
19
import collections
20

21 22 23 24 25
have_subprocess = False
try:
    import subprocess
    have_subprocess = True
except:
26
    print("Warning: subprocess not found, will fall back to spawnv")
27

28
from testglobals import *
29 30
from testutil import *

31 32
if config.use_threads:
    import threading
33 34 35 36
    try:
        import thread
    except ImportError: # Python 3
        import _thread as thread
37

38 39 40 41 42 43 44 45
global wantToStop
wantToStop = False
def stopNow():
    global wantToStop
    wantToStop = True
def stopping():
    return wantToStop

46 47
# Options valid for the current test only (these get reset to
# testdir_testopts after each test).
48

ei@vuokko.info's avatar
ei@vuokko.info committed
49
global testopts_local
50 51 52 53 54 55
if config.use_threads:
    testopts_local = threading.local()
else:
    class TestOpts_Local:
        pass
    testopts_local = TestOpts_Local()
56 57

def getTestOpts():
ei@vuokko.info's avatar
ei@vuokko.info committed
58
    return testopts_local.x
59

ei@vuokko.info's avatar
ei@vuokko.info committed
60 61 62
def setLocalTestOpts(opts):
    global testopts_local
    testopts_local.x=opts
63

64 65 66 67 68
def isStatsTest():
    opts = getTestOpts()
    return len(opts.compiler_stats_range_fields) > 0 or len(opts.stats_range_fields) > 0


69 70 71
# This can be called at the top of a file of tests, to set default test options
# for the following tests.
def setTestOpts( f ):
72
    global thisdir_settings
73
    thisdir_settings = [thisdir_settings, f]
74 75 76 77 78 79 80 81 82 83 84 85

# -----------------------------------------------------------------------------
# Canned setup functions for common cases.  eg. for a test you might say
#
#      test('test001', normal, compile, [''])
#
# to run it without any options, but change it to
#
#      test('test001', expect_fail, compile, [''])
#
# to expect failure for this test.

86
def normal( name, opts ):
87 88
    return;

89
def skip( name, opts ):
90 91
    opts.skip = 1

92
def expect_fail( name, opts ):
93 94
    opts.expect = 'fail';

95
def reqlib( lib ):
96
    return lambda name, opts, l=lib: _reqlib (name, opts, l )
97

98 99 100 101
# Cache the results of looking to see if we have a library or not.
# This makes quite a difference, especially on Windows.
have_lib = {}

102
def _reqlib( name, opts, lib ):
103
    if lib in have_lib:
104
        got_it = have_lib[lib]
105
    else:
106 107 108
        if have_subprocess:
            # By preference we use subprocess, as the alternative uses
            # /dev/null which mingw doesn't have.
109 110
            cmd = strip_quotes(config.ghc_pkg)
            p = subprocess.Popen([cmd, '--no-user-package-db', 'describe', lib],
111 112 113 114 115 116 117
                                 stdout=subprocess.PIPE,
                                 stderr=subprocess.PIPE)
            # read from stdout and stderr to avoid blocking due to
            # buffers filling
            p.communicate()
            r = p.wait()
        else:
118 119
            r = os.system(config.ghc_pkg + ' --no-user-package-db describe '
                                         + lib + ' > /dev/null 2> /dev/null')
120 121 122 123
        got_it = r == 0
        have_lib[lib] = got_it

    if not got_it:
124
        opts.expect = 'missing-lib'
125

126 127 128 129
def req_haddock( name, opts ):
    if not config.haddock:
        opts.expect = 'missing-lib'

130
def req_profiling( name, opts ):
131 132 133
    if not config.have_profiling:
        opts.expect = 'fail'

134
def req_shared_libs( name, opts ):
Simon Marlow's avatar
Simon Marlow committed
135 136 137
    if not config.have_shared_libs:
        opts.expect = 'fail'

138
def req_interp( name, opts ):
Ian Lynagh's avatar
Ian Lynagh committed
139 140 141
    if not config.have_interp:
        opts.expect = 'fail'

142
def req_smp( name, opts ):
Simon Marlow's avatar
Simon Marlow committed
143 144 145
    if not config.have_smp:
        opts.expect = 'fail'

146
def ignore_output( name, opts ):
147 148
    opts.ignore_output = 1

149
def no_stdin( name, opts ):
150 151
    opts.no_stdin = 1

152
def combined_output( name, opts ):
pcapriotti's avatar
pcapriotti committed
153 154
    opts.combined_output = True

155 156 157
# -----

def expect_fail_for( ways ):
158
    return lambda name, opts, w=ways: _expect_fail_for( name, opts, w )
159

160
def _expect_fail_for( name, opts, ways ):
161 162
    opts.expect_fail_for = ways

163 164 165 166
def expect_broken( bug ):
    return lambda name, opts, b=bug: _expect_broken (name, opts, b )

def _expect_broken( name, opts, bug ):
167
    record_broken(name, opts, bug)
168 169
    opts.expect = 'fail';

Ian Lynagh's avatar
Ian Lynagh committed
170
def expect_broken_for( bug, ways ):
171
    return lambda name, opts, b=bug, w=ways: _expect_broken_for( name, opts, b, w )
Ian Lynagh's avatar
Ian Lynagh committed
172

173
def _expect_broken_for( name, opts, bug, ways ):
174
    record_broken(name, opts, bug)
Ian Lynagh's avatar
Ian Lynagh committed
175
    opts.expect_fail_for = ways
Ian Lynagh's avatar
Ian Lynagh committed
176

177
def record_broken(name, opts, bug):
178
    global brokens
179
    me = (bug, opts.testdir, name)
180 181 182
    if not me in brokens:
        brokens.append(me)

183 184 185
# -----

def omit_ways( ways ):
186
    return lambda name, opts, w=ways: _omit_ways( name, opts, w )
187

188
def _omit_ways( name, opts, ways ):
189 190 191 192
    opts.omit_ways = ways

# -----

193
def only_ways( ways ):
194
    return lambda name, opts, w=ways: _only_ways( name, opts, w )
195

196
def _only_ways( name, opts, ways ):
197 198 199 200
    opts.only_ways = ways

# -----

201
def extra_ways( ways ):
202
    return lambda name, opts, w=ways: _extra_ways( name, opts, w )
203

204
def _extra_ways( name, opts, ways ):
205 206 207 208
    opts.extra_ways = ways

# -----

ross's avatar
ross committed
209
def omit_compiler_types( compiler_types ):
210
   return lambda name, opts, c=compiler_types: _omit_compiler_types(name, opts, c)
ross's avatar
ross committed
211

212
def _omit_compiler_types( name, opts, compiler_types ):
ross's avatar
ross committed
213
    if config.compiler_type in compiler_types:
dterei's avatar
dterei committed
214
        opts.skip = 1
ross's avatar
ross committed
215 216 217 218

# -----

def only_compiler_types( compiler_types ):
219
   return lambda name, opts, c=compiler_types: _only_compiler_types(name, opts, c)
ross's avatar
ross committed
220

221
def _only_compiler_types( name, opts, compiler_types ):
ross's avatar
ross committed
222
    if config.compiler_type not in compiler_types:
dterei's avatar
dterei committed
223
        opts.skip = 1
ross's avatar
ross committed
224 225 226

# -----

227
def set_stdin( file ):
228
   return lambda name, opts, f=file: _set_stdin(name, opts, f);
229

230
def _set_stdin( name, opts, f ):
231 232 233 234 235
   opts.stdin = f

# -----

def exit_code( val ):
236
    return lambda name, opts, v=val: _exit_code(name, opts, v);
237

238
def _exit_code( name, opts, v ):
239 240
    opts.exit_code = v

241 242 243 244 245 246 247 248 249 250 251
def signal_exit_code( val ):
    if opsys('solaris2'):
        return exit_code( val );
    else:
        # When application running on Linux receives fatal error
        # signal, then its exit code is encoded as 128 + signal
        # value. See http://www.tldp.org/LDP/abs/html/exitcodes.html
        # I assume that Mac OS X behaves in the same way at least Mac
        # OS X builder behavior suggests this.
        return exit_code( val+128 );

252 253
# -----

254
def timeout_multiplier( val ):
255
    return lambda name, opts, v=val: _timeout_multiplier(name, opts, v)
256

257
def _timeout_multiplier( name, opts, v ):
258 259 260 261
    opts.timeout_multiplier = v

# -----

262
def extra_run_opts( val ):
263
    return lambda name, opts, v=val: _extra_run_opts(name, opts, v);
264

265
def _extra_run_opts( name, opts, v ):
266 267
    opts.extra_run_opts = v

268 269
# -----

Simon Marlow's avatar
Simon Marlow committed
270
def extra_hc_opts( val ):
271
    return lambda name, opts, v=val: _extra_hc_opts(name, opts, v);
Simon Marlow's avatar
Simon Marlow committed
272

273
def _extra_hc_opts( name, opts, v ):
Simon Marlow's avatar
Simon Marlow committed
274 275 276 277
    opts.extra_hc_opts = v

# -----

278
def extra_clean( files ):
279
    return lambda name, opts, v=files: _extra_clean(name, opts, v);
280

281
def _extra_clean( name, opts, v ):
282 283
    opts.clean_files = v

284 285
# -----

286 287 288 289 290 291 292
def stats_num_field( field, expecteds ):
    return lambda name, opts, f=field, e=expecteds: _stats_num_field(name, opts, f, e);

def _stats_num_field( name, opts, field, expecteds ):
    if field in opts.stats_range_fields:
        framework_fail(name, 'duplicate-numfield', 'Duplicate ' + field + ' num_field check')

293
    if type(expecteds) is list:
294 295 296 297 298
        for (b, expected, dev) in expecteds:
            if b:
                opts.stats_range_fields[field] = (expected, dev)
                return
        framework_fail(name, 'numfield-no-expected', 'No expected value found for ' + field + ' in num_field check')
299

300 301 302
    else:
        (expected, dev) = expecteds
        opts.stats_range_fields[field] = (expected, dev)
303 304 305

def compiler_stats_num_field( field, expecteds ):
    return lambda name, opts, f=field, e=expecteds: _compiler_stats_num_field(name, opts, f, e);
306

307 308 309 310
def _compiler_stats_num_field( name, opts, field, expecteds ):
    if field in opts.compiler_stats_range_fields:
        framework_fail(name, 'duplicate-numfield', 'Duplicate ' + field + ' num_field check')

311 312
    # Compiler performance numbers change when debugging is on, making the results
    # useless and confusing. Therefore, skip if debugging is on.
313 314 315
    if compiler_debugged():
        skip(name, opts)

316 317 318 319
    for (b, expected, dev) in expecteds:
        if b:
            opts.compiler_stats_range_fields[field] = (expected, dev)
            return
320

321 322
    framework_fail(name, 'numfield-no-expected', 'No expected value found for ' + field + ' in num_field check')

323 324
# -----

325
def when(b, f):
ian@well-typed.com's avatar
ian@well-typed.com committed
326 327 328
    # When list_brokens is on, we want to see all expect_broken calls,
    # so we always do f
    if b or config.list_broken:
329 330 331 332 333 334 335
        return f
    else:
        return normal

def unless(b, f):
    return when(not b, f)

ian@well-typed.com's avatar
ian@well-typed.com committed
336 337 338
def doing_ghci():
    return 'ghci' in config.run_ways

339
def ghci_dynamic( ):
ian@well-typed.com's avatar
ian@well-typed.com committed
340
    return config.ghc_dynamic
341 342 343 344

def fast():
    return config.fast

345 346
def platform( plat ):
    return config.platform == plat
Ian Lynagh's avatar
Ian Lynagh committed
347

348 349
def opsys( os ):
    return config.os == os
Ian Lynagh's avatar
Ian Lynagh committed
350

351 352
def arch( arch ):
    return config.arch == arch
353

354 355
def wordsize( ws ):
    return config.wordsize == str(ws)
tibbe's avatar
tibbe committed
356

357 358
def msys( ):
    return config.msys
ian@well-typed.com's avatar
ian@well-typed.com committed
359

360 361
def cygwin( ):
    return config.cygwin
Ian Lynagh's avatar
Ian Lynagh committed
362

363 364
def have_vanilla( ):
    return config.have_vanilla
365

366 367
def have_dynamic( ):
    return config.have_dynamic
368

369 370
def have_profiling( ):
    return config.have_profiling
371

372 373
def in_tree_compiler( ):
    return config.in_tree_compiler
374

375 376
def compiler_type( compiler ):
    return config.compiler_type == compiler
377

378 379 380
def compiler_lt( compiler, version ):
    return config.compiler_type == compiler and \
           version_lt(config.compiler_version, version)
381

382 383 384
def compiler_le( compiler, version ):
    return config.compiler_type == compiler and \
           version_le(config.compiler_version, version)
385

386 387 388
def compiler_gt( compiler, version ):
    return config.compiler_type == compiler and \
           version_gt(config.compiler_version, version)
389

390 391 392
def compiler_ge( compiler, version ):
    return config.compiler_type == compiler and \
           version_ge(config.compiler_version, version)
393

394 395 396 397 398 399
def unregisterised( ):
    return config.unregisterised

def compiler_profiled( ):
    return config.compiler_profiled

400 401
def compiler_debugged( ):
    return config.compiler_debugged
402

403 404 405 406 407
def tag( t ):
    return t in config.compiler_tags

# ---

Ian Lynagh's avatar
Ian Lynagh committed
408 409
def namebase( nb ):
   return lambda opts, nb=nb: _namebase(opts, nb)
410

Ian Lynagh's avatar
Ian Lynagh committed
411 412
def _namebase( opts, nb ):
    opts.with_namebase = nb
413

414 415
# ---

416
def high_memory_usage(name, opts):
417 418
    opts.alone = True

419 420 421 422 423
# If a test is for a multi-CPU race, then running the test alone
# increases the chance that we'll actually see it.
def multi_cpu_race(name, opts):
    opts.alone = True

Ian Lynagh's avatar
Ian Lynagh committed
424
# ---
425
def literate( name, opts ):
Ian Lynagh's avatar
Ian Lynagh committed
426 427
    opts.literate = 1;

428
def c_src( name, opts ):
429 430
    opts.c_src = 1;

431
def objc_src( name, opts ):
Austin Seipp's avatar
Austin Seipp committed
432 433
    opts.objc_src = 1;

434
def objcpp_src( name, opts ):
435 436
    opts.objcpp_src = 1;

437
def cmm_src( name, opts ):
438 439
    opts.cmm_src = 1;

440
def outputdir( odir ):
441
    return lambda name, opts, d=odir: _outputdir(name, opts, d)
442

443
def _outputdir( name, opts, odir ):
444 445
    opts.outputdir = odir;

446 447
# ----

448
def pre_cmd( cmd ):
449
    return lambda name, opts, c=cmd: _pre_cmd(name, opts, cmd)
450

451
def _pre_cmd( name, opts, cmd ):
452 453 454 455
    opts.pre_cmd = cmd

# ----

456
def clean_cmd( cmd ):
457
    return lambda name, opts, c=cmd: _clean_cmd(name, opts, cmd)
458

459
def _clean_cmd( name, opts, cmd ):
460 461 462 463
    opts.clean_cmd = cmd

# ----

464
def cmd_prefix( prefix ):
465
    return lambda name, opts, p=prefix: _cmd_prefix(name, opts, prefix)
466

467
def _cmd_prefix( name, opts, prefix ):
468 469 470 471 472
    opts.cmd_wrapper = lambda cmd, p=prefix: p + ' ' + cmd;

# ----

def cmd_wrapper( fun ):
473
    return lambda name, opts, f=fun: _cmd_wrapper(name, opts, fun)
474

475
def _cmd_wrapper( name, opts, fun ):
476
    opts.cmd_wrapper = fun
477

478 479
# ----

Ian Lynagh's avatar
Ian Lynagh committed
480
def compile_cmd_prefix( prefix ):
481
    return lambda name, opts, p=prefix: _compile_cmd_prefix(name, opts, prefix)
Ian Lynagh's avatar
Ian Lynagh committed
482

483
def _compile_cmd_prefix( name, opts, prefix ):
Ian Lynagh's avatar
Ian Lynagh committed
484 485 486 487
    opts.compile_cmd_prefix = prefix

# ----

488 489 490 491 492 493 494 495
def check_stdout( f ):
    return lambda name, opts, f=f: _check_stdout(name, opts, f)

def _check_stdout( name, opts, f ):
    opts.check_stdout = f

# ----

496
def normalise_slashes( name, opts ):
497
    _normalise_fun(name, opts, normalise_slashes_)
498

499
def normalise_exe( name, opts ):
500
    _normalise_fun(name, opts, normalise_exe_)
501

502 503
def normalise_fun( *fs ):
    return lambda name, opts: _normalise_fun(name, opts, fs)
504

505
def _normalise_fun( name, opts, *fs ):
506
    opts.extra_normaliser = join_normalisers(opts.extra_normaliser, fs)
507

508 509
def normalise_errmsg_fun( *fs ):
    return lambda name, opts: _normalise_errmsg_fun(name, opts, fs)
510

511
def _normalise_errmsg_fun( name, opts, *fs ):
512 513 514 515 516 517 518 519 520 521 522 523 524
    opts.extra_errmsg_normaliser =  join_normalisers(opts.extra_errmsg_normaliser, fs)

def normalise_version_( *pkgs ):
    def normalise_version__( str ):
        return re.sub('(' + '|'.join(map(re.escape,pkgs)) + ')-[0-9.]+',
                      '\\1-<VERSION>', str)
    return normalise_version__

def normalise_version( *pkgs ):
    def normalise_version__( name, opts ):
        _normalise_fun(name, opts, normalise_version_(*pkgs))
        _normalise_errmsg_fun(name, opts, normalise_version_(*pkgs))
    return normalise_version__
525

526 527
def join_normalisers(*a):
    """
528
    Compose functions, flattening sequences.
529

530
       join_normalisers(f1,[f2,f3],f4)
531 532 533

    is the same as

534
       lambda x: f1(f2(f3(f4(x))))
535 536
    """

537 538 539 540 541 542 543 544 545 546 547 548
    def flatten(l):
        """
        Taken from http://stackoverflow.com/a/2158532/946226
        """
        for el in l:
            if isinstance(el, collections.Iterable) and not isinstance(el, basestring):
                for sub in flatten(el):
                    yield sub
            else:
                yield el

    a = flatten(a)
549 550 551

    fn = lambda x:x # identity function
    for f in a:
552
        assert callable(f)
553 554 555
        fn = lambda x,f=f,fn=fn: fn(f(x))
    return fn

556 557 558
# ----
# Function for composing two opt-fns together

559
def executeSetups(fs, name, opts):
560
    if type(fs) is list:
561
        # If we have a list of setups, then execute each one
562 563
        for f in fs:
            executeSetups(f, name, opts)
564 565 566
    else:
        # fs is a single function, so just apply it
        fs(name, opts)
567

568 569 570 571
# -----------------------------------------------------------------------------
# The current directory of tests

def newTestDir( dir ):
572
    global thisdir_settings
573
    # reset the options for this test directory
574 575 576 577 578
    thisdir_settings = lambda name, opts, dir=dir: _newTestDir( name, opts, dir )

def _newTestDir( name, opts, dir ):
    opts.testdir = dir
    opts.compiler_always_flags = config.compiler_always_flags
579 580 581 582

# -----------------------------------------------------------------------------
# Actually doing tests

583 584
parallelTests = []
aloneTests = []
585
allTestNames = set([])
586

587
def runTest (opts, name, func, args):
ei@vuokko.info's avatar
ei@vuokko.info committed
588 589
    ok = 0

590
    if config.use_threads:
ei@vuokko.info's avatar
ei@vuokko.info committed
591
        t.thread_pool.acquire()
592
        try:
593
            while config.threads<(t.running_threads+1):
594
                t.thread_pool.wait()
595
            t.running_threads = t.running_threads+1
596 597
            ok=1
            t.thread_pool.release()
598
            thread.start_new_thread(test_common_thread, (name, opts, func, args))
599 600 601 602 603
        except:
            if not ok:
                t.thread_pool.release()
    else:
        test_common_work (name, opts, func, args)
604

605
# name  :: String
606
# setup :: TestOpts -> IO ()
607
def test (name, setup, func, args):
608 609
    global aloneTests
    global parallelTests
610
    global allTestNames
611
    global thisdir_settings
612 613
    if name in allTestNames:
        framework_fail(name, 'duplicate', 'There are multiple tests with this name')
614
    if not re.match('^[0-9]*[a-zA-Z][a-zA-Z0-9._-]*$', name):
615
        framework_fail(name, 'bad_name', 'This test has an invalid name')
616 617 618 619 620

    # Make a deep copy of the default_testopts, as we need our own copy
    # of any dictionaries etc inside it. Otherwise, if one test modifies
    # them, all tests will see the modified version!
    myTestOpts = copy.deepcopy(default_testopts)
621

622
    executeSetups([thisdir_settings, setup], name, myTestOpts)
623 624 625 626 627 628

    thisTest = lambda : runTest(myTestOpts, name, func, args)
    if myTestOpts.alone:
        aloneTests.append(thisTest)
    else:
        parallelTests.append(thisTest)
629
    allTestNames.add(name)
630

631
if config.use_threads:
632
    def test_common_thread(name, opts, func, args):
633 634 635 636 637 638
        t.lock.acquire()
        try:
            test_common_work(name,opts,func,args)
        finally:
            t.lock.release()
            t.thread_pool.acquire()
639
            t.running_threads = t.running_threads - 1
640 641
            t.thread_pool.notify()
            t.thread_pool.release()
642

643 644 645 646 647 648 649 650 651 652
def get_package_cache_timestamp():
    if config.package_conf_cache_file == '':
        return 0.0
    else:
        try:
            return os.stat(config.package_conf_cache_file).st_mtime
        except:
            return 0.0


ei@vuokko.info's avatar
ei@vuokko.info committed
653
def test_common_work (name, opts, func, args):
654 655 656 657 658 659 660 661 662
    try:
        t.total_tests = t.total_tests+1
        setLocalTestOpts(opts)

        package_conf_cache_file_start_timestamp = get_package_cache_timestamp()

        # All the ways we might run this test
        if func == compile or func == multimod_compile:
            all_ways = config.compile_ways
663
        elif func == compile_and_run or func == multimod_compile_and_run:
664 665 666 667 668 669
            all_ways = config.run_ways
        elif func == ghci_script:
            if 'ghci' in config.run_ways:
                all_ways = ['ghci']
            else:
                all_ways = []
670
        else:
671 672 673
            all_ways = ['normal']

        # A test itself can request extra ways by setting opts.extra_ways
674
        all_ways = all_ways + [way for way in opts.extra_ways if way not in all_ways]
675 676 677 678 679 680

        t.total_test_cases = t.total_test_cases + len(all_ways)

        ok_way = lambda way: \
            not getTestOpts().skip \
            and (config.only == [] or name in config.only) \
681
            and (getTestOpts().only_ways == None or way in getTestOpts().only_ways) \
682
            and (config.cmdline_ways == [] or way in config.cmdline_ways) \
683
            and (not (config.skip_perf_tests and isStatsTest())) \
684 685 686
            and way not in getTestOpts().omit_ways

        # Which ways we are asked to skip
687
        do_ways = list(filter (ok_way,all_ways))
688 689 690 691 692 693 694 695

        # In fast mode, we skip all but one way
        if config.fast and len(do_ways) > 0:
            do_ways = [do_ways[0]]

        if not config.clean_only:
            # Run the required tests...
            for way in do_ways:
696 697
                if stopping():
                    break
698 699 700 701 702 703 704
                do_test (name, way, func, args)

            for way in all_ways:
                if way not in do_ways:
                    skiptest (name,way)

        if getTestOpts().cleanup != '' and (config.clean_only or do_ways != []):
705
            pretest_cleanup(name)
706 707
            clean([name + suff for suff in [
                       '', '.exe', '.exe.manifest', '.genscript',
708 709 710 711 712 713 714
                       '.stderr.normalised',        '.stdout.normalised',
                       '.run.stderr.normalised',    '.run.stdout.normalised',
                       '.comp.stderr.normalised',   '.comp.stdout.normalised',
                       '.interp.stderr.normalised', '.interp.stdout.normalised',
                       '.stats', '.comp.stats',
                       '.hi', '.o', '.prof', '.exe.prof', '.hc',
                       '_stub.h', '_stub.c', '_stub.o',
715
                       '.hp', '.exe.hp', '.ps', '.aux', '.hcr', '.eventlog']])
716

717
            if func == multi_compile or func == multi_compile_fail:
718
                    extra_mods = args[1]
719 720 721
                    clean([replace_suffix(fx[0],'o') for fx in extra_mods])
                    clean([replace_suffix(fx[0], 'hi') for fx in extra_mods])

722 723

            clean(getTestOpts().clean_files)
Ian Lynagh's avatar
Ian Lynagh committed
724

725 726 727 728 729 730 731
            if getTestOpts().outputdir != None:
                odir = in_testdir(getTestOpts().outputdir)
                try:
                    shutil.rmtree(odir)
                except:
                    pass

732 733 734 735 736
            try:
                shutil.rmtree(in_testdir('.hpc.' + name))
            except:
                pass

737 738 739 740 741 742
            try:
                cleanCmd = getTestOpts().clean_cmd
                if cleanCmd != None:
                    result = runCmdFor(name, 'cd ' + getTestOpts().testdir + ' && ' + cleanCmd)
                    if result != 0:
                        framework_fail(name, 'cleaning', 'clean-command failed: ' + str(result))
743
            except:
744
                framework_fail(name, 'cleaning', 'clean-command exception')
745

746
        package_conf_cache_file_end_timestamp = get_package_cache_timestamp();
747

748 749
        if package_conf_cache_file_start_timestamp != package_conf_cache_file_end_timestamp:
            framework_fail(name, 'whole-test', 'Package cache timestamps do not match: ' + str(package_conf_cache_file_start_timestamp) + ' ' + str(package_conf_cache_file_end_timestamp))
750

751 752 753 754 755 756 757 758 759 760
        try:
            for f in files_written[name]:
                if os.path.exists(f):
                    try:
                        if not f in files_written_not_removed[name]:
                            files_written_not_removed[name].append(f)
                    except:
                        files_written_not_removed[name] = [f]
        except:
            pass
761
    except Exception as e:
762
        framework_fail(name, 'runTest', 'Unhandled exception: ' + str(e))
Ian Lynagh's avatar
Ian Lynagh committed
763

764 765 766 767
def clean(strs):
    for str in strs:
        for name in glob.glob(in_testdir(str)):
            clean_full_path(name)
768

769
def clean_full_path(name):
Ian Lynagh's avatar
Ian Lynagh committed
770 771 772
        try:
            # Remove files...
            os.remove(name)
773
        except OSError as e1:
774
            try:
Ian Lynagh's avatar
Ian Lynagh committed
775 776
                # ... and empty directories
                os.rmdir(name)
777
            except OSError as e2:
Ian Lynagh's avatar
Ian Lynagh committed
778 779 780 781 782
                # We don't want to fail here, but we do want to know
                # what went wrong, so print out the exceptions.
                # ENOENT isn't a problem, though, as we clean files
                # that don't necessarily exist.
                if e1.errno != errno.ENOENT:
783
                    print(e1)
Ian Lynagh's avatar
Ian Lynagh committed
784
                if e2.errno != errno.ENOENT:
785
                    print(e2)
786

787
def do_test(name, way, func, args):
788 789 790
    full_name = name + '(' + way + ')'

    try:
791 792 793 794 795
        if_verbose(2, "=====> %s %d of %d %s " % \
                    (full_name, t.total_tests, len(allTestNames), \
                    [t.n_unexpected_passes, \
                     t.n_unexpected_failures, \
                     t.n_framework_failures]))
796

797 798
        if config.use_threads:
            t.lock.release()
799 800 801 802

        try:
            preCmd = getTestOpts().pre_cmd
            if preCmd != None:
803
                result = runCmdFor(name, 'cd ' + getTestOpts().testdir + ' && ' + preCmd)
804 805
                if result != 0:
                    framework_fail(name, way, 'pre-command failed: ' + str(result))
806
        except:
807 808
            framework_fail(name, way, 'pre-command exception')

ei@vuokko.info's avatar
ei@vuokko.info committed
809
        try:
810
            result = func(*[name,way] + args)
ei@vuokko.info's avatar
ei@vuokko.info committed
811
        finally:
812 813
            if config.use_threads:
                t.lock.acquire()
814

815 816 817
        if getTestOpts().expect != 'pass' and \
                getTestOpts().expect != 'fail' and \
                getTestOpts().expect != 'missing-lib':
818
            framework_fail(name, way, 'bad expected ' + getTestOpts().expect)
819

820 821 822 823 824 825
        try:
            passFail = result['passFail']
        except:
            passFail = 'No passFail found'

        if passFail == 'pass':
ei@vuokko.info's avatar
ei@vuokko.info committed
826 827
            if getTestOpts().expect == 'pass' \
               and way not in getTestOpts().expect_fail_for:
828
                t.n_expected_passes = t.n_expected_passes + 1
829 830 831 832
                if name in t.expected_passes:
                    t.expected_passes[name].append(way)
                else:
                    t.expected_passes[name] = [way]