| #!/bin/sh |
| # SPDX-License-Identifier: GPL-2.0+ |
| # |
| # Given a .litmus test and the corresponding litmus output file, check |
| # the .litmus.out file against the "Result:" comment to judge whether the |
| # test ran correctly. If the --hw argument is omitted, check against the |
| # LKMM output, which is assumed to be in file.litmus.out. If either a |
| # "DATARACE" marker in the "Result:" comment or a "Flag data-race" marker |
| # in the LKMM output is present, the other must also be as well, at least |
| # for litmus tests having a "Result:" comment. In this case, a failure of |
| # the Always/Sometimes/Never portion of the "Result:" prediction will be |
| # noted, but forgiven. |
| # |
| # If the --hw argument is provided, this is assumed to be a hardware |
| # test, and the output is assumed to be in file.litmus.HW.out, where |
| # "HW" is the --hw argument. In addition, non-Sometimes verification |
| # results will be noted, but forgiven. Furthermore, if there is no |
| # "Result:" comment but there is an LKMM .litmus.out file, the observation |
| # in that file will be used to judge the assembly-language verification. |
| # |
| # Usage: |
| # judgelitmus.sh file.litmus |
| # |
| # Run this in the directory containing the memory model, specifying the |
| # pathname of the litmus test to check. |
| # |
| # Copyright IBM Corporation, 2018 |
| # |
| # Author: Paul E. McKenney <paulmck@linux.ibm.com> |
| |
| litmus=$1 |
| |
| if test -f "$litmus" -a -r "$litmus" |
| then |
| : |
| else |
| echo ' --- ' error: \"$litmus\" is not a readable file |
| exit 255 |
| fi |
| if test -z "$LKMM_HW_MAP_FILE" |
| then |
| litmusout=$litmus.out |
| lkmmout= |
| else |
| litmusout="`echo $litmus | |
| sed -e 's/\.litmus$/.litmus.'${LKMM_HW_MAP_FILE}'/'`.out" |
| lkmmout=$litmus.out |
| fi |
| if test -f "$LKMM_DESTDIR/$litmusout" -a -r "$LKMM_DESTDIR/$litmusout" |
| then |
| : |
| else |
| echo ' --- ' error: \"$LKMM_DESTDIR/$litmusout is not a readable file |
| exit 255 |
| fi |
| if grep -q '^Flag data-race$' "$LKMM_DESTDIR/$litmusout" |
| then |
| datarace_modeled=1 |
| fi |
| if grep -q '^[( ]\* Result: ' $litmus |
| then |
| outcome=`grep -m 1 '^[( ]\* Result: ' $litmus | awk '{ print $3 }'` |
| if grep -m1 '^[( ]\* Result: .* DATARACE' $litmus |
| then |
| datarace_predicted=1 |
| fi |
| if test -n "$datarace_predicted" -a -z "$datarace_modeled" -a -z "$LKMM_HW_MAP_FILE" |
| then |
| echo '!!! Predicted data race not modeled' $litmus |
| exit 252 |
| elif test -z "$datarace_predicted" -a -n "$datarace_modeled" |
| then |
| # Note that hardware models currently don't model data races |
| echo '!!! Unexpected data race modeled' $litmus |
| exit 253 |
| fi |
| elif test -n "$LKMM_HW_MAP_FILE" && grep -q '^Observation' $LKMM_DESTDIR/$lkmmout > /dev/null 2>&1 |
| then |
| outcome=`grep -m 1 '^Observation ' $LKMM_DESTDIR/$lkmmout | awk '{ print $3 }'` |
| else |
| outcome=specified |
| fi |
| |
| grep '^Observation' $LKMM_DESTDIR/$litmusout |
| if grep -q '^Observation' $LKMM_DESTDIR/$litmusout |
| then |
| : |
| elif grep ': Unknown macro ' $LKMM_DESTDIR/$litmusout |
| then |
| badname=`grep ': Unknown macro ' $LKMM_DESTDIR/$litmusout | |
| sed -e 's/^.*: Unknown macro //' | |
| sed -e 's/ (User error).*$//'` |
| badmsg=' !!! Current LKMM version does not know "'$badname'"'" $litmus" |
| echo $badmsg |
| if ! grep -q '!!!' $LKMM_DESTDIR/$litmusout |
| then |
| echo ' !!! '$badmsg >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| exit 254 |
| elif grep '^Command exited with non-zero status 124' $LKMM_DESTDIR/$litmusout |
| then |
| echo ' !!! Timeout' $litmus |
| if ! grep -q '!!!' $LKMM_DESTDIR/$litmusout |
| then |
| echo ' !!! Timeout' >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| exit 124 |
| else |
| echo ' !!! Verification error' $litmus |
| if ! grep -q '!!!' $LKMM_DESTDIR/$litmusout |
| then |
| echo ' !!! Verification error' >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| exit 255 |
| fi |
| if test "$outcome" = DEADLOCK |
| then |
| if grep '^Observation' $LKMM_DESTDIR/$litmusout | grep -q 'Never 0 0$' |
| then |
| ret=0 |
| else |
| echo " !!! Unexpected non-$outcome verification" $litmus |
| if ! grep -q '!!!' $LKMM_DESTDIR/$litmusout |
| then |
| echo " !!! Unexpected non-$outcome verification" >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| ret=1 |
| fi |
| elif grep '^Observation' $LKMM_DESTDIR/$litmusout | grep -q 'Never 0 0$' |
| then |
| echo " !!! Unexpected non-$outcome deadlock" $litmus |
| if ! grep -q '!!!' $LKMM_DESTDIR/$litmusout |
| then |
| echo " !!! Unexpected non-$outcome deadlock" $litmus >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| ret=1 |
| elif grep '^Observation' $LKMM_DESTDIR/$litmusout | grep -q $outcome || test "$outcome" = Maybe |
| then |
| ret=0 |
| else |
| if test \( -n "$LKMM_HW_MAP_FILE" -a "$outcome" = Sometimes \) -o -n "$datarace_modeled" |
| then |
| flag="--- Forgiven" |
| ret=0 |
| else |
| flag="!!! Unexpected" |
| ret=1 |
| fi |
| echo " $flag non-$outcome verification" $litmus |
| if ! grep -qe "$flag" $LKMM_DESTDIR/$litmusout |
| then |
| echo " $flag non-$outcome verification" >> $LKMM_DESTDIR/$litmusout 2>&1 |
| fi |
| fi |
| tail -2 $LKMM_DESTDIR/$litmusout | head -1 |
| exit $ret |