From 109d400f00bd87af72f6f6ff7f8ced14ecea7a50 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Mon, 16 Mar 2026 15:28:09 +0000
Subject: [PATCH] Added the unit test for member!

---
 unit-tests/memberp.sh | 107 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 107 insertions(+)
 create mode 100644 unit-tests/memberp.sh

diff --git a/unit-tests/memberp.sh b/unit-tests/memberp.sh
new file mode 100644
index 0000000..ff15ea4
--- /dev/null
+++ b/unit-tests/memberp.sh
@@ -0,0 +1,107 @@
+#!/bin/bash
+
+result=0
+
+expected='t'
+output=`target/psse <<EOF
+(progn
+  (set! nil? (lambda (o) (= (type o) "NIL ")))
+  (set! member? 
+    (lambda
+        (item collection)
+        (cond
+          ((nil? collection) nil)
+          ((= item (car collection)) t)
+          (t (member? item (cdr collection))))))
+  (member? 1 '(1 2 3 4)))
+EOF`
+actual=`echo $output | tail -1`
+
+echo -n "$?: (member? 1 '(1 2 3 4))... "
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    result=`echo "${result} + 1" | bc`
+fi
+
+expected='t'
+output=`target/psse <<EOF
+(progn
+  (set! nil? (lambda (o) (= (type o) "NIL ")))
+  (set! member? 
+    (lambda
+      (item collection)
+      (cond
+        ((nil? collection) nil)
+        ((= item (car collection)) t)
+        (t (member? item (cdr collection))))))
+  (member? 4 '(1 2 3 4)))
+EOF`
+actual=`echo $output | tail -1`
+
+echo -n "$?: (member? 4 '(1 2 3 4))... "
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    result=`echo "${result} + 1" | bc`
+fi
+
+
+expected='nil'
+output=`target/psse <<EOF
+(progn
+  (set! nil? (lambda (o) (= (type o) "NIL ")))
+  (set! member? 
+    (lambda
+      (item collection)
+      (cond
+        ((nil? collection) nil)
+        ((= item (car collection)) t)
+        (t (member? item (cdr collection))))))
+  (member? 5 '(1 2 3 4)))
+EOF`
+actual=`echo $output | tail -1`
+
+echo -n "$?: (member? 5 '(1 2 3 4))... "
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    result=`echo "${result} + 1" | bc`
+fi
+
+expected='nil'
+output=`target/psse -s100<<EOF
+(progn
+  (set! nil? (lambda (o) (= (type o) "NIL ")))
+  (set! member? 
+    (lambda
+      (item collection)
+      (print (list "in member?: " 'item item 'collection collection))
+      (cond
+        ((nil? collection) nil)
+        ((= item (car collection)) t)
+        (t (member? item (cdr collection))))))
+  (member? 5 '(1 2 3 4)))
+EOF`
+actual=`echo $output | tail -1`
+
+echo -n "$?: (member? 5 '(1 2 3 4)) with stack limit... "
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    result=`echo "${result} + 1" | bc`
+fi
+
+exit $result