diff options
| author | Gabriel Kerneis | 2013-10-10 16:29:35 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2013-10-10 16:29:35 +0100 |
| commit | 366b64825ce20ea5f9f3e0da298618f15450613f (patch) | |
| tree | e1a8205c4adc727b51d0e0ce398437164425dfb5 /src | |
| parent | 8d42d2a0c5c3069f9eb9314f129d4b4f5120af78 (diff) | |
Stub test suite
Diffstat (limited to 'src')
| -rw-r--r-- | src/Makefile | 14 | ||||
| -rw-r--r-- | src/test/run_tests.ml | 7 | ||||
| -rw-r--r-- | src/test/test1.sail | 1 |
3 files changed, 10 insertions, 12 deletions
diff --git a/src/Makefile b/src/Makefile index 59f9165c..4ecf9ba7 100644 --- a/src/Makefile +++ b/src/Makefile @@ -1,15 +1,7 @@ -.PHONY: all test clean +.PHONY: all clean -all: main.native test - -.PHONY: main.native -main.native: - ocamlbuild main.native - -TESTS=test/test1.native - -test: - ocamlbuild $(TESTS) +all: + ocamlbuild main.native test/run_tests.native clean: -ocamlbuild -clean diff --git a/src/test/run_tests.ml b/src/test/run_tests.ml new file mode 100644 index 00000000..56dd88c9 --- /dev/null +++ b/src/test/run_tests.ml @@ -0,0 +1,7 @@ +let tests = [ + "test1", Test1.defs; +] ;; + +let run_all () = List.iter Run_interp.run tests ;; + +run_all () ;; diff --git a/src/test/test1.sail b/src/test/test1.sail index 29f479d6..e3a98e3f 100644 --- a/src/test/test1.sail +++ b/src/test/test1.sail @@ -10,4 +10,3 @@ typedef maybe = const union forall a. { unit None; a Some; } typedef colors = enumerate { red; green; blue } typedef creg = register bits [5:i] { 5 : h ; 6..7 : j} let bool e = true -let unit x = main () |