alarsyo/spot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

tests: use $PERL instead of perl

Browse source 
* tests/core/ltl2tgba2.test, tests/core/ltldo.test,
tests/core/ltlfilt.test, tests/core/neverclaimread.test,
tests/core/parseaut.test, tests/sanity/bin.test: Here.
This commit is contained in:
Alexandre Duret-Lutz 2020-09-23 11:06:03 +02:00
parent 3a6d967872
commit b0730852bf
6 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tests/core/ltl2tgba2.test
View file

@ -388,7 +388,7 @@ EOF
ltlfilt -Fformulas/1 --stats='%f,%f,%>' |
ltl2tgba -F-/2 --stats='%<,%<, %s,%t' |
ltl2tgba -D -F-/2 --stats='%<,%<,%>, %s,%t' |
perl -p -e 's/$/\r/' |
$PERL -p -e 's/$/\r/' |
ltl2tgba -B -F-/2 --stats='%<,%<,%>, %s,%t' |
ltl2tgba -BD -F-/2 --stats='%<,%<,%>, %s,%t' |
ltl2tgba -GD -F-/2 --stats='%<,%>, %s,%t' > output

2
tests/core/ltldo.test
View file

@ -169,7 +169,7 @@ grep "ltldo: failed to parse '2a'.*-n" err
genltl --rv-counter=9 | ltldo ltl2tgba --stats='
print("%[up]R + %[uc]R + %[sp]R + %[sc]R - %R\n");
die if abs(%[up]R + %[uc]R + %[sp]R + %[sc]R - %R) > 0.02;' > code.pl
perl code.pl
$PERL code.pl
# ltldo should not leave temporary files behind itself on errors
ltldo -f a 'ltl2dstar --ltl2nba=spin:ltl2tgba@-DS' && exit 2

4
tests/core/ltlfilt.test
View file

@ -1,6 +1,6 @@
#! /bin/sh
# -*- coding: utf-8 -*-
# Copyright (C) 2013-2019 Laboratoire de Recherche et Développement de
# Copyright (C) 2013-2020 Laboratoire de Recherche et Développement de
# l'Epita (LRDE).
#
# This file is part of Spot, a model checking library.
@ -475,7 +475,7 @@ run 0 ltlfilt -p --wring -u --nnf --relabel=pnn --define in >out
diff exp out
run 0 ltlfilt -0 in > out
perl -i -pe 's/\0/@\n/g' out
$PERL -i -pe 's/\0/@\n/g' out
cat >exp <<EOF
a & c & Xb@
a & b & GF(a | c) & FG(a | c)@

2
tests/core/neverclaimread.test
View file

@ -297,7 +297,7 @@ grep input: stderr > stderrfilt
diff stderrfilt expected-err
# DOS-style new lines should have the same output.
perl -pi -e 's/$/\r/' input
$PERL -pi -e 's/$/\r/' input
run 2 ../ikwiad -ks -XN input > stdout 2>stderr
cat stderr
grep input: stderr > stderrfilt

4
tests/core/parseaut.test
View file

@ -695,7 +695,7 @@ input:8.1-16.12: aborted input automaton
EOF
# DOS-style new lines should have the same output.
perl -pi -e 's/$/\r/' input
$PERL -pi -e 's/$/\r/' input
autfilt --hoa input 2>stderr && exit 1
cat stderr
diff stderr input.exp
@ -1135,7 +1135,7 @@ EOF
diff expected input.out
# DOS-style new lines should have the same output.
perl -pe -e 's/$/\r/' input
$PERL -pe -e 's/$/\r/' input
autfilt --hoa input 2>stderr && exit 1
cat stderr
diff stderr input.exp