From 3d81ea0129ec5b6a322c586fcd22f21f647a1106 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 7 Apr 2023 22:47:01 +0200
Subject: [PATCH] Finish testing current procedures.

---
 src/util-set-list.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/util-set-list.scm b/src/util-set-list.scm
index 998f568..076d041 100644
--- a/src/util-set-list.scm
+++ b/src/util-set-list.scm
@@ -223,6 +223,18 @@
 		   (list->lset '(1 2 3 1 2))
 		   (list->lset '(2 3 4 2 3))))
 		 4)
+    (test-equal? lset-intersect
+		 (lset-count
+		  (lset-intersect
+		   (list->lset '(1 2 3 1 2))
+		   (list->lset '(2 3 4 2 3))))
+		 2)
+    (test-equal? lset-subtract
+		 (lset-count
+		  (lset-subtract
+		   (list->lset '(1 2 3 1 2))
+		   (list->lset '(2 3 4 2 3))))
+		 1)
     ))
 
  )