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/test | |
| parent | 8d42d2a0c5c3069f9eb9314f129d4b4f5120af78 (diff) | |
Stub test suite
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/run_tests.ml | 7 | ||||
| -rw-r--r-- | src/test/test1.sail | 1 |
2 files changed, 7 insertions, 1 deletions
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 () |