summaryrefslogtreecommitdiff
path: root/src/test
diff options
context:
space:
mode:
authorGabriel Kerneis2014-01-08 15:50:45 +0100
committerGabriel Kerneis2014-01-08 15:50:45 +0100
commit2eb3e063615a24cd93fb4b301b25c8a402520bf3 (patch)
treed012a92ab60fd9c3739c015aa7efe42114dcd9ec /src/test
parent2eab7ae7a7b5e912d8ef5bbf3bbdbefa983e8eb0 (diff)
Between Scylla and Charybdis
Diffstat (limited to 'src/test')
-rw-r--r--src/test/run_tests.ml1
-rw-r--r--src/test/vectors.sail5
2 files changed, 2 insertions, 4 deletions
diff --git a/src/test/run_tests.ml b/src/test/run_tests.ml
index df5598dc..30cd7071 100644
--- a/src/test/run_tests.ml
+++ b/src/test/run_tests.ml
@@ -4,6 +4,7 @@ let tests = [
"test3", Test3.defs;
"pattern", Pattern.defs;
"vectors", Vectors.defs;
+ (*"power", Power.defs;*)
] ;;
let run_all () = List.iter Run_interp.run tests ;;
diff --git a/src/test/vectors.sail b/src/test/vectors.sail
index 95b8254e..54defa08 100644
--- a/src/test/vectors.sail
+++ b/src/test/vectors.sail
@@ -5,10 +5,7 @@ function unit main _ = {
i := [bitzero, bitzero, bitone, bitzero];
i := 0b101 ;
- (* unbound identifier *)
i[0] := bitzero;
- (* unbound identifier *)
+ (* XXX Vector access of non-vector *)
v[0];
-
-
}