diff options
Diffstat (limited to 'meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest')
-rw-r--r-- | meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest b/meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest index f1c833e6ca..5bc8b625bd 100644 --- a/meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest +++ b/meta-perl/recipes-perl/libauthen/libauthen-radius-perl/run-ptest @@ -13,8 +13,22 @@ systemctl restart radiusd || /etc/init.d/radiusd restart || { exit 1 } -# run teests -perl test.pl +# run tests +# FIXME: this is from ptest-perl.bbclass and might not be correct +for case in `find t -type f -name '*.t'`; do + perl $case >$case.output 2>&1 + ret=$? + cat $case.output + if [ $ret -ne 0 ]; then + echo "FAIL: ${case%.t}" + elif grep -i 'SKIP' $case.output; then + echo "SKIP: ${case%.t}" + else + echo "PASS: ${case%.t}" + fi + + rm -f $case.output +done # restore the config and restart mv ${CONF_USERS}_orig ${CONF_USERS} |