Changeset 34923 in project for release/4/readline/tags/4.1.3/trunk/tests/run.scm

Timestamp:

12/07/17 00:03:29 (3 years ago)

Author:

Alexej Magura

Message:

releasing version 4.1.3: heres to a build that hopefully isnt broken

Location:

release/4/readline/tags/4.1.3/trunk

Files:

• . (copied) (copied from release/4/readline/trunk)
• tests/run.scm (copied) (copied from release/4/readline/trunk/tests/run.scm) (1 diff)

release/4/readline/tags/4.1.3/trunk/tests/run.scm

@@ -1 @@
-(require-extension test readline srfi-1 kvlists)
+(require-extension test readline srfi-1)
+
+(define (kvlist? x)
+  (and (proper-list? x)
+       (= (modulo (length x) 2) 0)
+       (every (lambda (kv) (keyword? (car kv)))
+              (chop x 2))))
+
 (test-begin "Readline variables")
 (test-assert "readline#session is a kvlist"