| 0,0 → 1,47 |
|---|
| # |
| # $Id$ |
| # Receives the raw input as found in tests.txt |
| # |
| |
| TESTNUM=0 |
| |
| G=$(tput setaf 2 ; tput bold ) |
| R=$(tput setaf 1 ; tput bold) |
| CLR=$(tput sgr0) |
| |
| RET=0 |
| |
| function unittest { |
| let 'TESTNUM++' |
| a="$@" |
| fn=$(cut -d' ' -f1 <<<"$a") |
| if [[ $TESTNUM -eq 1 ]]; then |
| type $fn |
| fi |
| args=$(cut -d' ' -f2- <<<"$a" | sed 's/:.*$//' | sed 's/ *$//') |
| expected=$(cut -d' ' -f2- <<<"$a" | sed 's/.*://') |
| echo "$fn($args) -> $expected" >&2 |
| res=$($fn $args) |
| ret=$? |
| passed= |
| if [[ $expected == '><' ]]; then # Expected to fail |
| if [[ $ret != 0 ]]; then |
| passed=1 |
| else |
| passed=0 |
| fi |
| elif [[ $res != $expected ]] && ( [[ $res ]] && ! fptest "$res" ~ "$expected" ) ; then |
| passed=0 |
| else |
| passed=1 |
| fi |
| |
| if [[ $passed -ne 1 ]]; then |
| echo -n "${R}FAILED => $res != '$expected'" |
| let 'RET++' |
| else |
| echo -n "${G}PASSED => $res ~= $expected" |
| fi |
| echo $CLR |
| } |
| |
| Property changes: |
|---|
| Added: svn:keywords |
|---|
| +Rev Id Date |
|---|
| \ No newline at end of property |
|---|