de29ba9e4c
Based on a request from Pierre Ganty. * spot/twaalgos/stats.cc, spot/twaalgos/stats.hh, bin/common_aoutput.cc, bin/common_aoutput.hh: Implement those options. * tests/core/format.test: Add test case. * doc/org/autfilt.org: Update doc. * NEWS: Mention them.
174 lines
7.1 KiB
Bash
174 lines
7.1 KiB
Bash
#!/bin/sh
|
|
# -*- coding: utf-8 -*-
|
|
# Copyright (C) 2016, 2017, 2022 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
|
|
|
|
genltl --dac=1..10 --stats='%s,%b,%x,%f,%[G]n,%[FUM]n,%[~GUM]n' > output
|
|
cat >expected <<EOF
|
|
3,2,1,G!p0,1,0,1
|
|
7,6,2,Fp0 -> (!p1 U p0),0,1,1
|
|
6,5,2,G(p0 -> G!p1),2,0,2
|
|
13,9,3,G((p0 & !p1 & Fp1) -> (!p2 U p1)),1,1,2
|
|
10,6,3,G((p0 & !p1) -> (!p2 W p1)),1,0,1
|
|
2,2,1,Fp0,0,1,0
|
|
7,3,2,!p0 W (!p0 & p1),0,0,0
|
|
9,8,2,G!p0 | F(p0 & Fp1),1,2,1
|
|
13,6,3,G((p0 & !p1) -> (!p1 W (!p1 & p2))),1,0,1
|
|
13,6,3,G((p0 & !p1) -> (!p1 U (!p1 & p2))),1,1,2
|
|
EOF
|
|
diff output expected
|
|
|
|
genltl --dac --stats='%n' 2> stderr && exit 1
|
|
cat stderr
|
|
grep -F "genltl: %n expects arguments" stderr
|
|
ltlfilt -f a --stats='%[]n' 2> stderr && exit 1
|
|
cat stderr
|
|
grep -F "ltlfilt: %n expects arguments" stderr
|
|
randltl 2 --stats='%[;]n' 2> stderr && exit 1
|
|
cat stderr
|
|
grep "randltl: .*unknown.*;" stderr
|
|
|
|
genltl --dac | ltlfilt --output='ap-%x.ltl'
|
|
test 4 = `wc -l<ap-1.ltl`
|
|
test 10 = `wc -l<ap-2.ltl`
|
|
test 16 = `wc -l<ap-3.ltl`
|
|
test 13 = `wc -l<ap-4.ltl`
|
|
test 10 = `wc -l<ap-5.ltl`
|
|
test 2 = `wc -l<ap-6.ltl`
|
|
|
|
genltl --dac --output='ap-%x.ltl2'
|
|
for i in 1 2 3 4 5 6; do
|
|
cmp ap-$i.ltl ap-$i.ltl2 || exit 1
|
|
done
|
|
|
|
ltl2tgba GFa > GFa
|
|
out=`<GFa autfilt --stats='%W,%w' --complement`
|
|
test "$out" = "cycle{a},cycle{!a}"
|
|
ltl2tgba FGa > FGa
|
|
test "0,1,0,1" = "`<FGa autfilt -D --stats='%D,%d,%P,%p'`"
|
|
test '0,0,0,1,"a"' = "`<FGa autfilt -C --stats='%D,%d,%P,%p,%[d]x'`"
|
|
# We had some issues in the pase where %P was set only if %p was used
|
|
# as well. So we make separate tests for this.
|
|
test "0,0" = "`<FGa autfilt -C --stats='%D,%P'`"
|
|
test "1,1" = "`<GFa autfilt -C --stats='%D,%P'`"
|
|
test "0,1" = "`<FGa autfilt -C --stats='%d,%p'`"
|
|
test "1,1" = "`<GFa autfilt -C --stats='%d,%p'`"
|
|
test "1,0" = "`<FGa autfilt -D --stats='%N,%n'`"
|
|
|
|
test "4" = "`ltl2tgba '(Ga -> Gb)W c' --stats=%c`"
|
|
test "4,5" = "`ltl2tgba '(Ga -> Gb)W c' | autfilt -C --stats=%C,%c`"
|
|
|
|
out=`ltl2tgba '(Ga->Gb)W c' --stats=%[r]c,%[a]c,%[t]c,%[w]c,%[wT]c,%[W]c,%[Wt]c`
|
|
test "1,3,1,3,2,1,0" = "$out"
|
|
|
|
ltl2tgba 'a' --stats='%[z]c' 2>stderr && exit 1
|
|
cat stderr
|
|
grep -F "ltl2tgba: unknown option 'z' in '%[z]c'" stderr
|
|
|
|
|
|
# From issue #269.
|
|
f='!X(FG((a & b) | (a & c) | (a & d) | (a & e) | (a & f) | (g & h) |
|
|
(g & i) | (g & j) | (g & k) | (g & l) | (m & n) | (m & o) | (m & p) |
|
|
(m & q) | (m & r) | (s & t) | (s & u) | (s & v) | (s & w) | (s & x) |
|
|
(y & z) | (ab & y) | (bb & y) | (cb & y) | (db & y) | (eb & g) | (c &
|
|
eb) | (d & eb) | (e & eb) | (eb & f) | (b & m) | (b & i) | (b & j) |
|
|
(b & k) | (b & l) | (h & s) | (h & o) | (h & p) | (h & q) | (h & r) |
|
|
(n & y) | (n & u) | (n & v) | (n & w) | (n & x) | (fb & t) | (ab & t)
|
|
| (bb & t) | (cb & t) | (db & t) | (g & gb) | (b & gb) | (d & gb) |
|
|
(e & gb) | (f & gb) | (c & m) | (c & h) | (c & j) | (c & k) | (c & l) |
|
|
(i & s) | (i & n) | (i & p) | (i & q) | (i & r) | (o & y) | (o & t) |
|
|
(o & v) | (o & w) | (o & x) | (fb & u) | (u & z) | (bb & u) | (cb &
|
|
u) | (db & u) | (g & hb) | (b & hb) | (c & hb) | (e & hb) | (f & hb) |
|
|
(d & m) | (d & h) | (d & i) | (d & k) | (d & l) | (j & s) | (j & n) |
|
|
(j & o) | (j & q) | (j & r) | (p & y) | (p & t) | (p & u) | (p & w) |
|
|
(p & x) | (fb & v) | (v & z) | (ab & v) | (cb & v) | (db & v) | (g &
|
|
ib) | (b & ib) | (c & ib) | (d & ib) | (f & ib) | (e & m) | (e & h) |
|
|
(e & i) | (e & j) | (e & l) | (k & s) | (k & n) | (k & o) | (k & p) |
|
|
(k & r) | (q & y) | (q & t) | (q & u) | (q & v) | (q & x) | (fb & w) |
|
|
(w & z) | (ab & w) | (bb & w) | (db & w) | (g & jb) | (b & jb) | (c &
|
|
jb) | (d & jb) | (e & jb) | (f & m) | (f & h) | (f & i) | (f & j) |
|
|
(f & k) | (l & s) | (l & n) | (l & o) | (l & p) | (l & q) | (r & y) |
|
|
(r & t) | (r & u) | (r & v) | (r & w) | (fb & x) | (x & z) | (ab & x) |
|
|
(bb & x) | (cb & x)) U ((a & b) | (a & c) | (a & d) | (a & e) | (a & f) |
|
|
(g & h) | (g & i) | (g & j) | (g & k) | (g & l) | (m & n) | (m & o) |
|
|
(m & p) | (m & q) | (m & r) | (s & t) | (s & u) | (s & v) | (s & w) |
|
|
(s & x) | (y & z) | (ab & y) | (bb & y) | (cb & y) | (db & y) | (eb &
|
|
g) | (c & eb) | (d & eb) | (e & eb) | (eb & f) | (b & m) | (b & i) |
|
|
(b & j) | (b & k) | (b & l) | (h & s) | (h & o) | (h & p) | (h & q) |
|
|
(h & r) | (n & y) | (n & u) | (n & v) | (n & w) | (n & x) | (fb & t) |
|
|
(ab & t) | (bb & t) | (cb & t) | (db & t) | (g & gb) | (b & gb) | (d &
|
|
gb) | (e & gb) | (f & gb) | (c & m) | (c & h) | (c & j) | (c & k) |
|
|
(c & l) | (i & s) | (i & n) | (i & p) | (i & q) | (i & r) | (o & y) |
|
|
(o & t) | (o & v) | (o & w) | (o & x) | (fb & u) | (u & z) | (bb & u)
|
|
| (cb & u) | (db & u) | (g & hb) | (b & hb) | (c & hb) | (e & hb) |
|
|
(f & hb) | (d & m) | (d & h) | (d & i) | (d & k) | (d & l) | (j & s) |
|
|
(j & n) | (j & o) | (j & q) | (j & r) | (p & y) | (p & t) | (p & u) |
|
|
(p & w) | (p & x) | (fb & v) | (v & z) | (ab & v) | (cb & v) | (db &
|
|
v) | (g & ib) | (b & ib) | (c & ib) | (d & ib) | (f & ib) | (e & m) |
|
|
(e & h) | (e & i) | (e & j) | (e & l) | (k & s) | (k & n) | (k & o) |
|
|
(k & p) | (k & r) | (q & y) | (q & t) | (q & u) | (q & v) | (q & x) |
|
|
(fb & w) | (w & z) | (ab & w) | (bb & w) | (db & w) | (g & jb) | (b &
|
|
jb) | (c & jb) | (d & jb) | (e & jb) | (f & m) | (f & h) | (f & i) |
|
|
(f & j) | (f & k) | (l & s) | (l & n) | (l & o) | (l & p) | (l & q) |
|
|
(r & y) | (r & t) | (r & u) | (r & v) | (r & w) | (fb & x) | (x & z) |
|
|
(ab & x) | (bb & x) | (cb & x)))'
|
|
test 3,5 = `ltl2tgba --low --any --stats=%s,%e "$f"`
|
|
# While we are at it, make sure we can translate this beast. Dispite
|
|
# the huge number of atomic propositiions, there is only one Boolean
|
|
# subformula and it is used twice.
|
|
test 3,4 = `ltl2tgba --stats=%s,%e "$f"`
|
|
|
|
cat >foo <<EOF
|
|
HOA: v1 States: 7 Start: 5 AP: 1 "a" acc-name: Buchi
|
|
Acceptance: 1 Inf(0) properties: trans-labels explicit-labels
|
|
state-acc deterministic properties: terminal --BODY-- State: 0 [0] 6
|
|
State: 1 [t] 0 State: 2 [t] 1 State: 3 [f] 2 State: 4 [t] 3 State: 5
|
|
[t] 4 State: 6 {0} [t] 6 --END--
|
|
EOF
|
|
(
|
|
autfilt --stats='%s,%[r]s,%[u]s,%[a]s' foo;
|
|
autfilt --remove-dead --stats='%s,%[r]s,%[u]s,%[a]s' foo;
|
|
autfilt --remove-dead --stats='%S,%[r]S,%[u]S,%[a]S' foo;
|
|
autfilt --stats='%e,%[r]e,%[u]e,%[a]e' foo;
|
|
autfilt --remove-dead --stats='%e,%[r]e,%[u]e,%[a]e' foo;
|
|
autfilt --remove-dead --stats='%E,%[r]E,%[u]E,%[a]E' foo;
|
|
autfilt --stats='%t,%[r]t,%[u]t,%[a]t' foo;
|
|
autfilt --remove-dead --stats='%t,%[r]t,%[u]t,%[a]t' foo;
|
|
autfilt --remove-dead --stats='%T,%[r]T,%[u]T,%[a]T' foo;
|
|
) > stats
|
|
|
|
cat >expected <<EOF
|
|
3,3,4,7
|
|
1,1,0,1
|
|
3,3,4,7
|
|
2,2,4,6
|
|
0,0,0,0
|
|
2,2,4,6
|
|
4,4,7,11
|
|
0,0,0,0
|
|
4,4,7,11
|
|
EOF
|
|
diff stats expected
|
|
|
|
autfilt --stats='%[x]T' foo 2>err && exit 1
|
|
grep 'only \[a\], \[r\], or \[u\] is supported' err
|