1 files changed, 56 insertions, 0 deletions
diff --git a/Test/aitest0/Intervals.bpl b/Test/aitest0/Intervals.bpl
index 49d27b1c..7ed2c3d2 100644
--- a/Test/aitest0/Intervals.bpl
+++ b/Test/aitest0/Intervals.bpl
@@ -17,3 +17,59 @@ procedure P(K: int)
   }
   assert 13 <= x;
 }
+
+procedure Thresholds0()
+{
+  var i: int;
+  i := 0;
+  while (i < 200)
+  {
+    i := i + 1;
+  }
+  assert i == 200;
+}
+
+procedure Thresholds1()
+{
+  var i: int;
+  i := 0;
+  while (i <= 199)
+  {
+    i := i + 1;
+  }
+  assert i == 200;
+}
+
+procedure Thresholds2()
+{
+  var i: int;
+  i := 100;
+  while (0 < i)
+  {
+    i := i - 1;
+  }
+  assert i == 0;
+}
+
+procedure Thresholds3()
+{
+  var i: int;
+  i := 0;
+  while (i < 200)
+  {
+    i := i + 1;
+  }
+  assert i == 199;  // error
+}
+
+procedure Thresholds4()
+{
+  var i: int;
+  i := 0;
+  while (i + 3 < 203)
+  {
+    i := i + 1;
+  }
+  assert i * 2 == 400;  // error: this would hold in an execution, but /infer:j is too weak to infer invariant i<=200
+}
+