dcd4644d42
* src/eltltest/acc.test, src/tgbatest/eltl2tgba.test: Simplify use of here documents, and also test for ltl2tgba's -lo option with valgrind.
204 lines
3 KiB
Bash
Executable file
204 lines
3 KiB
Bash
Executable file
#!/bin/sh
|
|
# -*- coding: utf-8 -*-
|
|
# Copyright (C) 2009, 2010, 2013 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 3 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
. ./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"
|
|
}
|
|
|
|
for f in 'GFa' 'FGb' 'GFa->GFb'; do
|
|
run 0 ../ltl2tgba -lo -b "$f" > output
|
|
check_false "!($f)"
|
|
done
|
|
|
|
# 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))'
|