cbc/test/test.sh

#!/bin/sh

cd `dirname $0`
. ./shunit.sh
CBC=../cbc

assert_compile() {
    assert_status 0 $CBC "$@"
}

assert_stat() {
    st=$1; shift
    assert_compile "$1.cb" &&
    assert_status $st "$@"
}

assert_out() {
    msg="$1"; shift
    assert_compile "$1.cb" &&
    assert_stdout "$msg" "$@"
}

assert_ok() {
    assert_out "OK" "$@"
}

symbol_visibility() {
    bin="$1"
    sym="$2"
    tmp=`readelf -s "$bin" | grep "$sym" | awk '{print $5}'`
    if [ "$tmp" = "LOCAL" ]
    then echo "private"
    else echo "public"
    fi
}

assert_private() {
    assert_eq "private" `symbol_visibility $1 $2`
}

assert_compile_error() {
    begin_test
    if eval "$CBC $@" >tc.out 2>&1
    then
        echo "shunit[$@]: compile error not occured"
        test_failed
        return 1
    fi
    assert_not_coredump || return
    if egrep -qv 'cbc: (error|warning): ' tc.out
    then
        echo "shunit[$@]: abnormal cbc error; error message is:"
        cat tc.out
        test_failed
        return 1
    fi
    return 0
}

assert_stat 0 ./zero
assert_stat 1 ./one

assert_out "Hello, World!" ./hello
assert_out "Hello, World!" ./hello2
assert_out "Hello, World!" ./hello3
assert_out "Hello, World!" ./hello4

assert_out "0;0;0;1;1;1;9;9;9;17;17;17" ./integer

assert_stat 0 ./funcall0
assert_stat 0 ./funcall1
assert_stat 0 ./funcall2
assert_stat 0 ./funcall3
assert_stat 0 ./funcall4
assert_out "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" ./funcall5

assert_out "$(/bin/echo -e ';;a;aa;b;";'\'';\a\b\0033\f\n\r\t\v;ABCabc')" ./string

assert_out "1;2" ./param
assert_out "1;2" ./lvar1
assert_out "1;2;3;4;5" ./lvar2
assert_out "1;2" ./comm
assert_out "1;2" ./scomm
assert_private scomm static_common_symbol
assert_out "1;2" ./gvar
assert_out "1;2" ./sgvar
assert_private sgvar static_global_variable
assert_out "1;2" ./slvar
assert_private slvar static_variable
assert_out "1;2" ./slcomm
assert_private slcomm static_variable

assert_out "1;2;3;4;5;6;7;8;9;10;11" ./add
assert_out "1;2;3;4;5;6;7;8;9;10;11;12;13" ./sub
assert_out "1;4;15" ./mul
assert_out "1;2;2;2" ./div
assert_out "0;0;1;4;7" ./mod

assert_out "0;1;2;3;4" ./bitand
assert_out "0;1;2;3;2;6;8;10" ./bitor
assert_out "1;2;0;0;2" ./bitxor
assert_out "-1;-2;0" ./bitnot
assert_out "1;2;4;8;16" ./lshift
assert_out "16;8;4;2;1" ./rshift

assert_out "1;0;0" ./logicalnot
assert_out "-1;0;1" ./unaryminus
assert_out "1;0;-1" ./unaryplus

assert_out "0;1;0" ./eq
assert_out "1;0;1" ./neq
assert_out "1;0;0" ./gt
assert_out "0;0;1" ./lt
assert_out "1;1;0" ./gteq
assert_out "0;1;1" ./lteq

assert_out "2;2;3;4;5;6;7;8;9;10;11;777" ./assign
assert_out "3;4;3;12;4;1;1;7;5;1;4" ./opassign
assert_out "0;1;2;2;3;3;4" ./inc
assert_out "4;3;2;2;1;1;0" ./dec

assert_ok ./if1
assert_ok ./if2

assert_out "OK;OK;OK;OK" ./condexpr
assert_out "0;0;0;2" ./logicaland
assert_out "0;1;1;1" ./logicalor

assert_ok ./while1
assert_ok ./while2
assert_out "3;3;2;1;0" ./while3
assert_ok ./while-break
assert_ok ./while-continue

assert_ok ./dowhile1
assert_ok ./dowhile2
assert_out "3;3;2;1;0" ./dowhile3
assert_ok ./dowhile-break
assert_ok ./dowhile-continue

assert_out "3;3;2;1;0" ./for1
assert_ok ./for-break
assert_ok ./for-continue

assert_compile_error break-semcheck.cb
assert_compile_error continue-semcheck.cb

assert_out "1;5;9" ./array
assert_out "0;0;0" ./array2
assert_compile_error aref-semcheck.cb
assert_compile_error array-semcheck1.cb
assert_compile_error array-semcheck2.cb

assert_out "11;22" ./struct
assert_stat 0 ./struct-semcheck
assert_compile_error struct-semcheck2.cb
assert_compile_error struct-semcheck3.cb
assert_compile_error struct-semcheck4.cb
assert_compile_error struct-semcheck5.cb
assert_compile_error struct-semcheck6.cb
assert_compile_error struct-semcheck7.cb
assert_compile_error struct-semcheck8.cb
assert_compile_error struct-semcheck9.cb
assert_compile_error struct-semcheck10.cb

assert_out "1;2;513" ./union   # little endian
assert_stat 0 ./union-semcheck
assert_compile_error union-semcheck2.cb
assert_compile_error union-semcheck3.cb
assert_compile_error union-semcheck4.cb
assert_compile_error union-semcheck5.cb
assert_compile_error union-semcheck6.cb
assert_compile_error union-semcheck7.cb
assert_compile_error union-semcheck8.cb
assert_compile_error union-semcheck9.cb
assert_compile_error union-semcheck10.cb

assert_out "1;2;1;1;3;4;5;6;OK" ./usertype

assert_out "5;5" ./pointer
assert_out "777" ./pointer2
assert_out "1;777;3;4;1;777;3;4" ./pointer3
assert_out "777" ./pointer4
assert_out "1;2;3;4;5;6" ./ptrmemb
assert_compile_error deref-semcheck1.cb
assert_compile_error deref-semcheck2.cb
assert_compile_error deref-semcheck3.cb
assert_compile_error deref-semcheck4.cb
assert_compile_error deref-semcheck5.cb

assert_out "2;64;-128;0" ./charops
assert_out "2;64;128;0" ./ucharops
assert_out "2;16384;-32768;0" ./shortops
assert_out "2;16384;32768;0" ./ushortops
assert_out "2;1073741824;-2147483648;0" ./intops
assert_out "2;1073741824;2147483648;0" ./uintops
assert_out "1;2;1073741824;-2147483648;0" ./longops  # 32bit
assert_out "1;2;1073741824;2147483648;0" ./ulongops  # 32bit

assert_out "25000000" ./cast
assert_out "777;666" ./cast2
assert_out "666;777" ./cast3

assert_out "2" ./block
assert_out "1;2;3" ./defvar

assert_out "OK" ./funcptr
assert_out "OK" ./funcptr2
assert_compile_error defun-semcheck.cb
assert_compile_error defun-semcheck2.cb
assert_compile_error defun-semcheck3.cb
assert_compile_error defun-semcheck4.cb
assert_compile_error defun-semcheck5.cb
assert_compile_error defun-semcheck6.cb
assert_compile_error defun-semcheck7.cb
assert_compile_error defun-semcheck8.cb
assert_compile_error funcall-semcheck.cb
assert_compile_error funcall-semcheck2.cb

#assert_out "..." ./mbc   # FIXME
assert_out "3" ./assoc
assert_out "4;80;0" ./initializer
assert_out "1, 2, 0" ./test2
assert_status 0 $CBC test3.cb
assert_stat 0 ./test4

test_finished