20221217 assign

.github/workflows/build-test.yml

@@ -208,6 +208,10 @@ jobs:
       if: startsWith(matrix.os, 'ubuntu') && startsWith(matrix.python, '3.8')
       run: cargo test --no-default-features
 
+    - name: Exhaustive assign tests
+      if: startsWith(matrix.os, 'ubuntu') && startsWith(matrix.python, '3.8')
+      run: cargo test -- --include-ignored assign
+
     - name: Check coverage
       if: startsWith(matrix.os, 'ubuntu') && startsWith(matrix.python, '3.8')
       run: |

resources/coverage/run_coverage.py

@@ -62,7 +62,7 @@ def collect_coverage():
         required_percentage = int(args.require_percent)
         has_required_pct = True
 
-        for file in result:
+        for file in filter(lambda f: '/tests/' not in f['name'], result):
             have_pct = int(file['coveragePercent'])
             if have_pct < required_percentage:
                 print(f"{file['name']} lacks required coverage have {have_pct} want {required_percentage}")

resources/tests/chia-gaming/last.clinc

@@ -0,0 +1,39 @@
+(
+    (defun last_inner ((next . remainder))
+        (if remainder
+            (last_inner remainder)
+            next
+        )
+    )
+
+    (defmacro last ARGS
+      (defun snoc (L agg)
+        (if L
+          (if (r L)
+              (snoc (r L) (c (f L) agg))
+              (c (f L) agg)
+              )
+          (c () ())
+          )
+        )
+
+      (defun prefix (L P)
+        (if L
+	          (c (f L) (prefix (r L) P))
+	          P
+	          )
+ 	      )
+
+      (if ARGS
+        (if (r ARGS)
+          (assign
+	          (final . rest) (snoc ARGS ())
+	          reversed (prefix rest (list final))
+            (qq (last_inner (unquote (c list reversed))))
+	          )
+          (qq (last_inner (unquote (f ARGS))))
+         )
+        (x "Last takes at least one argument")
+        )
+      )
+)

resources/tests/chia-gaming/test-last.clsp

@@ -0,0 +1,6 @@
+(mod ()
+  (include *standard-cl-21*)
+  (include last.clinc)
+
+  (last 99 100 101)
+  )