From 87acb15174333f969b9c8c647cf0dc01281a438a Mon Sep 17 00:00:00 2001
From: Alexandre Duret-Lutz <adl@lrde.epita.fr>
Date: Mon, 14 Feb 2011 11:29:07 +0100
Subject: [PATCH] Translate 50 random PSL formulae until we get a better test.

* src/tgbatest/randpsl.test: New file.
* src/tgbatest/Makefile.am (TESTS): Add it.
---
 src/tgbatest/Makefile.am  |  3 ++-
 src/tgbatest/randpsl.test | 40 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 42 insertions(+), 1 deletion(-)
 create mode 100755 src/tgbatest/randpsl.test

diff --git a/src/tgbatest/Makefile.am b/src/tgbatest/Makefile.am
index 865368015..9ee276da3 100644
--- a/src/tgbatest/Makefile.am
+++ b/src/tgbatest/Makefile.am
@@ -105,7 +105,8 @@ TESTS = \
   emptchkr.test \
   ltlcounter.test \
   spotlbtt.test \
-  complementation.test
+  complementation.test \
+  randpsl.test
 
 EXTRA_DIST = $(TESTS)
 
diff --git a/src/tgbatest/randpsl.test b/src/tgbatest/randpsl.test
new file mode 100755
index 000000000..76982f1e8
--- /dev/null
+++ b/src/tgbatest/randpsl.test
@@ -0,0 +1,40 @@
+#!/bin/sh
+# Copyright (C) 2011 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
+
+set -e
+
+check_psl()
+{
+  # Make cross products with FM
+  run 0 ../ltl2tgba -f -R3 -b "$1" > out.tgba
+  run 0 ../ltl2tgba -f -R3 -Pout.tgba -E "!($1)"
+  # Also try with -x turned on.
+  run 0 ../ltl2tgba -f -x -R3 -b "$1" > out.tgba
+  run 0 ../ltl2tgba -f -x -R3 -Pout.tgba -E "!($1)"
+}
+
+../../ltltest/randltl -F 50 -f 30 -u -s 0 -P a b c |
+while read formula; do
+  check_psl "$formula"
+done