meta/recipes-devtools/tcltk/tcl/run-ptest


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/bin/sh

for i in `ls tests/*.test | awk -F/ '{print $2}'`; do
    TCL_LIBRARY=library ./tcltest tests/all.tcl -file $i >$i.log 2>&1
    grep -q "^Files with failing tests:" $i.log
    if [ $? -eq 0 ]; then
        echo "FAIL: $i"
        cat $i.log
    else
        echo "PASS: $i"
    fi
    rm -f $i.log
done