3 # Copyright (c) 2006 Marcel Moolenaar
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
10 # 1. Redistributions of source code must retain the above copyright
11 # notice, this list of conditions and the following disclaimer.
12 # 2. Redistributions in binary form must reproduce the above copyright
13 # notice, this list of conditions and the following disclaimer in the
14 # documentation and/or other materials provided with the distribution.
16 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 my $srcdir = `dirname $0`;
32 my @types = ("Call", "Cond");
33 my @preds = ("False", "True");
34 my %variant_mapping = (
36 "Cond" => "Backward Forward"
40 local ($nr, $type, $pred, $var) = @_;
41 local $test = "${type}_${pred}_${var}";
42 local $tmpfile = "/tmp/" . $$ . "_$test";
45 $st = system("cc -o $tmpfile -DTYPE=$type -DPRED=$pred -DVAR=$var -Wall -O1 -g $srcdir/test.c");
47 print "not ok $nr $test # compiling $test\n";
50 $st = system($tmpfile);
52 print "ok $nr $test\n";
55 print "not ok $nr $test # invalid combination\n";
58 print "not ok $nr $test # long branch failure\n";
61 print "not ok $nr $test # signalled (exit status $st)\n";
62 return; # Preserve the executable
69 # We can only test the long brach emulation on the Merced processor.
70 # Check for that and skip these tests if it's not...
72 $_ = `sysctl -n hw.model`;
74 print "1..0 # SKIP This test can only be run on the Merced\n";
79 # Get the total number of tests we're going to perform.
82 foreach $type (@types) {
83 my @variants = split(/ /, $variant_mapping{$type});
84 $count += @preds * @variants;
90 foreach $type (@types) {
91 my @variants = split(/ /, $variant_mapping{$type});
92 foreach $pred (@preds) {
93 foreach $var (@variants) {
94 run ++$nr, $type, $pred, $var;