/
t2.pl
executable file
·43 lines (30 loc) · 1.16 KB
/
t2.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl
use lib ".";
use Test;
########################################################################
my $t = new Test('Base' => 't2',
'FmtHost' => 'mt_${test}_host.rt',
'FmtMic' => 'mt_${test}_mic.rt',
'RunHost' => 1,
'RunMic' => 1,
# 'MAKE_VARS' => 'OPT=-O3',
# Defaults for test duration and problem-size limits:
# 'TEST_DURATION' => 1,
# 'N_VEC_MIN' => 1,
# 'N_VEC_MAX' => 64 * 1024 * 1024,
# "Precise" test:
'TEST_DURATION' => 5,
# "Small" test setting for development
# 'TEST_DURATION' => 0.5,
# 'N_VEC_MIN' => 1024,
# 'N_VEC_MAX' => 128 * 1024,
'EnvHost' => "KMP_AFFINITY=scatter",
'EnvMic' => "KMP_AFFINITY='verbose,granularity=fine,compact' KMP_PLACE_THREADS=1T",
);
@TESTS = qw(sum2_cube sum2_quint sum3_cube);
$t->make_clean();
for $test (@TESTS)
{
print "Running test $test ...\n";
$t->run_test($test);
}