From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 9 Jul 2021 18:04:36 +0000 (+0100)
Subject: jstest: lower: implement a test
X-Git-Tag: otter-0.7.2~196
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=1a8021c40390bcdce0d7ecbe6af828fc294284a9;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 dabaa677..0dac6a70 100644
--- a/jstest/jst-lower.rs
+++ b/jstest/jst-lower.rs
@@ -170,6 +170,19 @@ impl Test {
     }
 
     // all targets now below all non-bottom non-targets
+    {
+      let mut had_nonbottom_nontarget = None;
+      for n in &new {
+        if ! n.bottom && ! n.target {
+          had_nonbottom_nontarget = Some(n);
+        }
+        if n.target {
+          assert!( had_nonbottom_nontarget.is_none(),
+                   "{:?} {:?}", &n, had_nonbottom_nontarget);
+        }
+      }
+    }
+
     // xxx ^ unimplemented checks
   }
 }