summaryrefslogtreecommitdiff
path: root/test/runtest.sh
blob: 1cdb0ff059cc4b1cc5d7c7a5763f4818d4fdaed0 (plain)
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
#!/usr/bin/env bash
export PATH=.:$PATH
export MC=../6/6m
export MU=../muse/muse
export AS=AS
export LD=ld
ARGS=$*
NFAILURES=0
NPASSES=0

function use {
    rm -f $1 $1.o $1.s $1.use
    echo "	"$MU -I ../libstd -o $1.use $1.myr && \
    $MU $1.myr -o $1.use
}

function build {
    rm -f $1 $1.o $1.s $1.use
    ../myrbuild/myrbuild -b $1 -C../6/6m -M../muse/muse -I../libstd -r../rt/_myrrt.o $1.myr
}

function pass {
    PASSED="$PASSED $1"
    NPASSED=$[$NPASSED + 1]
}

function fail {
    echo "FAIL: $1"
    FAILED="$FAILED $1"
    NFAILED=$[$NFAILED + 1]
}

function expectstatus {
    ./$1 $3
    if [ $? -eq $2 ]; then
        pass $1
        return
    else
        fail $1
    fi
}

function expectprint {
    if [ "`./$1 $3`" != "$2" ]; then
        fail $1
    else
        pass $1
    fi
}


function expectcompare {
    if [ x"" !=  x"$TMPDIR" ]; then 
        t=$TMPDIR/myrtest-$1-$RANDOM
    else
        t=/tmp/myrtest-$1-$RANDOM
    fi
    ./$1 $3 > $t
    if cmp $t data/$1-expected; then
        pass $1
    else
        fail $1
    fi
    rm -f $t
}

function expectfcompare {
    ./$1 $3
    if cmp data/$1-expected $2; then
        pass $1
    else
        fail $1
    fi
}

function shouldskip {
  if [ -z $ARGS ]; then
      return 1
  fi

  for i in $ARGS; do
      if [ $i = $1 ]; then
          return 1
      fi
  done
  return 0
}


# Should build and run
function B {
    if shouldskip $1; then
        return
    fi

    test="$1"; shift
    type="$1"; shift
    res="$1"; shift
    if [ $# > 0 ]; then
        args="$1"; shift
    fi
    build $test
    case $type in
    "E")  expectstatus "$test" "$res" "$input";;
    "P")  expectprint "$test" "$res" "$input";;
    "C")  expectcompare "$test" "$res" "$input";;
    "F")  expectfcompare "$test" "$res" "$args";;
    esac
}

# Should fail
function F {
    if shouldskip $1; then
        return
    fi
    (build $1) > /dev/null
    if [ $? -eq '1' ]; then
        pass $1
    else
        fail $1
    fi
}

# Should generate a usefile
function U {
    return
}

source tests

echo "PASSED ($NPASSED): $PASSED"
if [ -z "$NFAILED" ]; then
    echo "SUCCESS"
else
    echo "FAILURES ($NFAILED): $FAILED"
fi