From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 9 Jul 2021 17:59:29 +0000 (+0100)
Subject: jstest: lower: implement a test
X-Git-Tag: otter-0.7.2~199
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=7f56b52ae95b7f6aac3de13c040bd29b176871f8;p=otter.git

jstest: lower: implement a test

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/jstest/jst-lower.rs b/jstest/jst-lower.rs
index 5a9548be..856308c3 100644
--- a/jstest/jst-lower.rs
+++ b/jstest/jst-lower.rs
@@ -152,6 +152,14 @@ impl Test {
     }
 
     // no non-bottom non-targets moved
+    {
+      for n in &new {
+        if n.target { continue }
+        if n.bottom { continue }
+        assert!( ! n.updated, "{:?}", n );
+      }
+    }
+
     // z coords (at least of bottom) in updates all decrease
     // all targets now below all non-bottom non-targets
     // xxx ^ unimplemented checks