a6677c2984
options -C and -CR for that. * src/tgbatest/ltl2tgba.cc: Add option -C and -CR to control whether we want the accepting run to be printed or replayed. * src/tgbatest/dfs.test, src/tgbatest/eltl2tgba.test, src/tgbatest/emptchk.test, src/tgbatest/emptchke.test, src/tgbatest/ltl2tgba.cc, src/tgbatest/ltlcounter.test: Use -CR.
200 lines
3 KiB
Bash
Executable file
200 lines
3 KiB
Bash
Executable file
#!/bin/sh
|
|
# Copyright (C) 2009, 2010 Laboratoire de Recherche et Développement
|
|
# de l'Epita (LRDE).
|
|
#
|
|
# This file is part of Spot, a model checking library.
|
|
#
|
|
# Spot is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Spot is distributed in the hope that it will be useful, but WITHOUT
|
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
|
# License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Spot; see the file COPYING. If not, write to the Free
|
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
# 02111-1307, USA.
|
|
|
|
. ./defs || exit -1
|
|
set -e
|
|
|
|
# Check if the TGBA was corretly constructed.
|
|
check_construct()
|
|
{
|
|
run 0 ../ltl2tgba -F -le -b "$1" > output
|
|
}
|
|
|
|
# Check if the TGBA behaves correctly by doing an emptiness check on
|
|
# the product between the constructed TGBA and a given formula
|
|
# translated using FM.
|
|
check_true()
|
|
{
|
|
run 0 ../ltl2tgba -CR -e -Poutput -f "$1"
|
|
}
|
|
check_false()
|
|
{
|
|
run 1 ../ltl2tgba -CR -e -Poutput -f "$1"
|
|
}
|
|
|
|
# Create the prelude file.
|
|
cat >input1 <<EOF
|
|
X=(
|
|
0 1 true
|
|
1 2 \$0
|
|
accept 2
|
|
)
|
|
U=(
|
|
0 0 \$0
|
|
0 1 \$1
|
|
accept 1
|
|
)
|
|
G=(
|
|
0 0 \$0
|
|
)
|
|
F=U(true, \$0)
|
|
Strong=G(F(\$0))->G(F(\$1))
|
|
R=!U(!\$0, !\$1)
|
|
EOF
|
|
|
|
cat >input <<EOF
|
|
A=(
|
|
)
|
|
%
|
|
!0|1
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'Ga'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
a U b
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'a U b'
|
|
check_false '!(a U b)'
|
|
check_false 'G(a&!b)'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
!(a U b)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true '!(a U b)'
|
|
check_true 'G(a&!b)'
|
|
check_false 'a U b'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
X(a)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'Xa'
|
|
check_true 'G(a)'
|
|
check_false '!Xa'
|
|
check_false 'G(!a)'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
X(X(a))
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'XXa'
|
|
check_false '!XXa'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
G(a|b&!c)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'G (a|b&!c)'
|
|
check_false '!G (a|b&!c)'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
F(a)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'Fa'
|
|
check_false '!Fa'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
Strong(a,b)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'G(F(a))->G(F(b))'
|
|
check_false '!(G(F(a))->G(F(b)))'
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
%
|
|
a R b
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'a R b'
|
|
check_false '!(a R b)'
|
|
|
|
cat >input <<EOF
|
|
T=(
|
|
0 1 true
|
|
1 0 \$0
|
|
)
|
|
%
|
|
T(f)
|
|
EOF
|
|
|
|
check_construct input
|
|
|
|
cat >input <<EOF
|
|
include input1
|
|
Fusion=
|
|
(
|
|
0 1 \$0 & !finish(\$0)
|
|
1 1 !finish(\$0)
|
|
1 2 \$1 & finish(\$0)
|
|
0 2 \$0 & \$1 & finish(\$0)
|
|
accept 2
|
|
)
|
|
%
|
|
Fusion(F(a),b)
|
|
EOF
|
|
|
|
check_construct input
|
|
|
|
cat >input <<EOF
|
|
Concat=
|
|
(
|
|
0 1 \$0 & !finish(\$0)
|
|
1 1 !finish(\$0)
|
|
1 2 finish(\$0)
|
|
0 2 \$0 & finish(\$0)
|
|
2 3 \$1
|
|
accept 3
|
|
)
|
|
%
|
|
Concat(a,b)
|
|
EOF
|
|
|
|
check_construct input
|
|
check_true 'a&X(b)'
|
|
check_false '!(a&X(b))'
|