Commit b33c1f3f authored by Thorsten Wißmann's avatar Thorsten Wißmann 🐧
Browse files

Add basic testsuite skeleton

parent 202433a6
......@@ -110,6 +110,17 @@ Executable coalgcompare
if flag(static)
CCLib: -static
Executable testsuite
CompiledObject: native
Path: src/testsuite/
BuildTools: ocamlbuild
MainIs: cool-testsuite.ml
BuildDepends: libcool
NativeOpt: -cc g++
ByteOpt: -cc g++
CCOpt: -std=c++98 -x c++
if flag(static)
CCLib: -static
# some cabal similar syntax, so steal its syntax highlighting
......
module CM = CoAlgMisc
module CR = CoAlgReasoner
(* sort should be of the form:
sorts = [| (parseFunctor Sys.argv.(2), [0]) |]
*)
type satCheck = bool * (CoAlgMisc.sortTable) * string (* sat * functors * formula *)
type testResult = | Correct | WrongAnswer | ParseError
let runSatCheck sc =
WrongAnswer
(* sort should be of the form:
sorts = [| (parseFunctor Sys.argv.(2), [0]) |]
*)
type satCheck = bool * (CoAlgMisc.sortTable) * string (* sat * functors * formula *)
type testResult = | Correct | WrongAnswer | ParseError
val runSatCheck : satCheck -> testResult
open CoolUtils
open Testsuite
module CF = CoAlgFormula
module CR = CoAlgReasoner
module CM = CoAlgMisc
module L = List
let k = [| (CM.MultiModalK, [0]) |]
let kd = [| (CM.MultiModalKD, [0]) |]
let cl = [| (CM.CoalitionLogic, [0]) |]
let gml = [| (CM.GML, [0]) |]
let main =
print_endline "todo"
let _ = main
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment