1#!/usr/bin/env perl -w
2#
3# Copyright (c) 2006 Marcel Moolenaar
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions
8# are met:
9#
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.
15#
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.
26#
27# $FreeBSD$
28
29my $srcdir = `dirname $0`;
30chomp $srcdir;
31
32my @types = ("Call", "Cond");
33my @preds = ("False", "True");
34my %variant_mapping = (
35	"Call" => "",
36	"Cond" => "Backward Forward"
37);
38
39sub run ($$$$) {
40    local ($nr, $type, $pred, $var) = @_;
41    local $test = "${type}_${pred}_${var}";
42    local $tmpfile = "/tmp/" . $$ . "_$test";
43    local $st;
44
45    $st = system("cc -o $tmpfile -DTYPE=$type -DPRED=$pred -DVAR=$var -Wall -O1 -g $srcdir/test.c");
46    if ($st != 0) {
47        print "not ok $nr $test # compiling $test\n";
48    }
49    else {
50        $st = system($tmpfile);
51        if ($st == 0) {
52            print "ok $nr $test\n";
53        }
54        elsif ($st == 256) {
55            print "not ok $nr $test # invalid combination\n";
56        }
57        elsif ($st == 512) {
58            print "not ok $nr $test # long branch failure\n";
59        }
60        else {
61            print "not ok $nr $test # signalled (exit status $st)\n";
62            return; # Preserve the executable
63        }
64    }
65    unlink $tmpfile;
66}
67
68#
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...
71#
72$_ = `sysctl -n hw.model`;
73if (! /^Merced$/) {
74    print "1..0 # SKIP This test can only be run on the Merced\n";
75    exit 0;
76}
77
78#
79# Get the total number of tests we're going to perform.
80#
81my $count = 0;
82foreach $type (@types) {
83    my @variants = split(/ /, $variant_mapping{$type});
84    $count += @preds * @variants;
85}
86
87print "1..$count\n";
88
89my $nr=0;
90foreach $type (@types) {
91    my @variants = split(/ /, $variant_mapping{$type});
92    foreach $pred (@preds) {
93	foreach $var (@variants) {
94	    run ++$nr, $type, $pred, $var;
95        }
96    }
97}
98
99exit 0;
100