Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Software
COOL
Commits
76234774
Commit
76234774
authored
Jul 11, 2014
by
Thorsten Wißmann
🐧
Browse files
Add more testcases for K
parent
e5426cbb
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/testsuite/Testsuite.ml
View file @
76234774
...
...
@@ -56,7 +56,7 @@ let runSatCheckVerbose (sc:satCheck) =
let
cs
=
colored_string
in
let
sotr
=
terminal_string_of_testResult
in
let
(
expectation
,_,
title
)
=
sc
in
PF
.
printf
"Is %s "
(
cs
"1"
(
columnCreate
5
0
title
));
PF
.
printf
"Is %s "
(
cs
"1"
(
columnCreate
6
0
title
));
PF
.
printf
"%s? → "
(
sotr
expectation
);
let
res
=
runSatCheck
sc
in
(
if
(
res
=
expectation
)
...
...
src/testsuite/cool-testsuite.ml
View file @
76234774
...
...
@@ -23,8 +23,15 @@ let k_testcases: satCheck list =
;
c
Unsat
"<R> ((<R> C) & (<S> False))"
;
c
Unsat
"<X> (<S> False) | <R> ((<R> C) & (<S> False))"
;
c
Unsat
"<X> (<S> False) | <R> ((<R> C) & (<S> False))"
(* Some DL98-Testcases *)
;
c
Sat
"<R> A & <R> B |- [R] C"
;
c
Unsat
"<R> A & <R> B |- [R] (~A & ~B)"
;
c
Unsat
"<R> A & <R> B |- [R] ~B"
;
c
Sat
"<R> A & <R> ~A |- [R] B"
;
c
Unsat
"<R> A & <R> ~A & (B => [R] ~A) |- [R] B"
;
c
Sat
"<R> A & <R> ~A & (B => [R] ~A) & (C => ~D) & (D => ~E) & <R> C & <R> D & <R> E |- True"
;
c
Unsat
"<R> D & <R> E & ((<R> D & <R> E) => [R] E) & ~(D & E) |- True"
;
c
Sat
"(<R> D | <R> E) & ((<R> D & <R> E) => [R] E) & ~(D & E) |- True"
;
c
Sat
"<R> D & <R> E & ((<R> D & <R> E) => [R] E) & (D & E => <R> ~(D&E)) |- True"
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment