more tests for iteration ops

tests/data/iterations.ccl

@@ -58,3 +58,33 @@ llook(0,begin,$NomAcc, equal(cas[$NomAcc],{nom,acc}))
 False
 NomAcc=nowhere
 ---
+position=0
+only(10,12,$Loc, in(loc, cas[$Loc]))
+
+True
+Loc=12
+---
+position=0
+only(10,13,$Loc, in(loc, cas[$Loc]))
+
+False
+Loc=nowhere
+---
+position=0
+atleast(9,13,$Loc, in(loc, cas[$Loc]), 3)
+
+True
+Loc=12
+---
+position=0
+atleast(9,13,$Loc, in(loc, cas[$Loc]), 4)
+
+False
+Loc=nowhere
+---
+position=-1
+llook(0,begin,$NomAcc, equal(cas[$NomAcc],{nom,acc}))
+
+False
+NomAcc=nowhere
+---