← Back to branch summary

~ubuntu-branches/ubuntu/raring/fftw3/raring-proposed

« back to all changes in this revision

Viewing changes to tests/check.pl

  • Committer: Bazaar Package Importer
  • Author(s): Paul Brossier
  • Date: 2006-05-31 13:44:05 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060531134405-ol9hrbg6bh81sg0c
Tags: 3.1.1-1
http://bugs.debian.org/350327
http://bugs.debian.org/338487
http://bugs.debian.org/338501
* New upstream release (closes: #350327, #338487, #338501)
* Add --enable-portable-binary to use -mtune instead of -march
* Use --with-gcc-arch=G5 / pentium4 on powerpc / i386
* Updated Standards-Version

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/check.pl
12
12
$rounds = 0;
13
13
$maxsize = 60000;
14
14
$maxcount = 100;
 
15
$do_0d = 0;
15
16
$do_1d = 0;
16
17
$do_2d = 0;
17
18
$do_random = 0;
106
107
    do_problem("of$geom", $doablep);
107
108
    do_problem("ib$geom", $doablep);
108
109
    do_problem("ob$geom", $doablep);
109
 
    do_problem("/if$geom", $doablep);
110
 
    do_problem("/of$geom", $doablep);
111
 
    do_problem("/ib$geom", $doablep);
112
 
    do_problem("/ob$geom", $doablep);
 
110
    do_problem("//if$geom", $doablep);
 
111
    do_problem("//of$geom", $doablep);
 
112
    do_problem("//ib$geom", $doablep);
 
113
    do_problem("//ob$geom", $doablep);
113
114
}
114
115
 
115
116
# given size, try all transform kinds (complex, real, etc.)
120
121
    do_geometry("r$size", $doablep);
121
122
}
122
123
 
 
124
sub small_0d {
 
125
    for ($i = 0; $i <= 16; ++$i) {
 
126
        for ($j = 0; $j <= 16; ++$j) {
 
127
            for ($vl = 1; $vl <= 5; ++$vl) {
 
128
                my $ivl = $i * $vl;
 
129
                my $jvl = $j * $vl;
 
130
                do_problem("o1v${i}:${vl}:${jvl}x${j}:${ivl}:${vl}x${vl}:1:1", 1);
 
131
                do_problem("i1v${i}:${vl}:${jvl}x${j}:${ivl}:${vl}x${vl}:1:1", 1);
 
132
                do_problem("ok1v${i}:${vl}:${jvl}x${j}:${ivl}:${vl}x${vl}:1:1", 1);
 
133
                do_problem("ik1v${i}:${vl}:${jvl}x${j}:${ivl}:${vl}x${vl}:1:1", 1);
 
134
            }
 
135
        }
 
136
    }
 
137
}
 
138
 
123
139
sub small_1d {
124
140
    do_size (0, 0);
125
141
    for ($i = 1; $i <= 100; ++$i) {
226
242
        elsif ($arglist[0] =~ /^--count=(.+)$/) { $maxcount = $1; }
227
243
        elsif ($arglist[0] =~ /^-c=(.+)$/) { $maxcount = $1; }
228
244
        
 
245
        elsif ($arglist[0] eq '-0d') { ++$do_0d; }
229
246
        elsif ($arglist[0] eq '-1d') { ++$do_1d; }
230
247
        elsif ($arglist[0] eq '-2d') { ++$do_2d; }
231
248
        elsif ($arglist[0] eq '-r') { ++$do_random; }
232
249
        elsif ($arglist[0] eq '--random') { ++$do_random; }
233
250
        elsif ($arglist[0] eq '-a') { 
234
 
            ++$do_1d; ++$do_2d; ++$do_random; 
 
251
            ++$do_0d; ++$do_1d; ++$do_2d; ++$do_random; 
235
252
        }
236
253
 
237
254
        else { $program=$arglist[0]; }
244
261
&parse_arguments (@ARGV);
245
262
 
246
263
&random_tests if $do_random;
 
264
&small_0d if $do_0d;
247
265
&small_1d if $do_1d;
248
266
&small_2d if $do_2d;
249
267