tests: Move argument parser.
authorJustus Winter <justus@g10code.com>
Tue, 20 Dec 2016 13:01:35 +0000 (14:01 +0100)
committerJustus Winter <justus@g10code.com>
Tue, 20 Dec 2016 15:25:35 +0000 (16:25 +0100)
* tests/gpgme/gpgme-defs.scm (flag): Move...
* tests/gpgscm/tests.scm: ... over here.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgme/gpgme-defs.scm
tests/gpgscm/tests.scm

index 2490666..6e35285 100644 (file)
        (start-agent))
       (apply create-gpgme-gpghome path)))
 
-;; Command line flag handling.  Returns the elements following KEY in
-;; ARGUMENTS up to the next argument, or #f if KEY is not in
-;; ARGUMENTS.
-(define (flag key arguments)
-  (cond
-   ((null? arguments)
-    #f)
-   ((string=? key (car arguments))
-    (let loop ((acc '())
-              (args (cdr arguments)))
-      (if (or (null? args) (string-prefix? (car args) "--"))
-         (reverse acc)
-         (loop (cons (car args) acc) (cdr args)))))
-   ((string=? "--" (car arguments))
-    #f)
-   (else
-    (flag key (cdr arguments)))))
-(assert (equal? (flag "--xxx" '("--yyy")) #f))
-(assert (equal? (flag "--xxx" '("--xxx")) '()))
-(assert (equal? (flag "--xxx" '("--xxx" "yyy")) '("yyy")))
-(assert (equal? (flag "--xxx" '("--xxx" "yyy" "zzz")) '("yyy" "zzz")))
-(assert (equal? (flag "--xxx" '("--xxx" "yyy" "zzz" "--")) '("yyy" "zzz")))
-(assert (equal? (flag "--xxx" '("--xxx" "yyy" "--" "zzz")) '("yyy")))
-(assert (equal? (flag "--" '("--" "xxx" "yyy" "--" "zzz")) '("xxx" "yyy")))
-
 (define (parse-makefile port key)
   (define (is-continuation? tokens)
     (string=? (last tokens) "\\"))
index 7b8d489..f127a93 100644 (file)
                 (test' (test::set-directory wd)))
            (loop (pool::add (test'::run-sync '--unpack-tarball gpghome-tar))
                  (cdr tests')))))))
+
+;; Command line flag handling.  Returns the elements following KEY in
+;; ARGUMENTS up to the next argument, or #f if KEY is not in
+;; ARGUMENTS.
+(define (flag key arguments)
+  (cond
+   ((null? arguments)
+    #f)
+   ((string=? key (car arguments))
+    (let loop ((acc '())
+              (args (cdr arguments)))
+      (if (or (null? args) (string-prefix? (car args) "--"))
+         (reverse acc)
+         (loop (cons (car args) acc) (cdr args)))))
+   ((string=? "--" (car arguments))
+    #f)
+   (else
+    (flag key (cdr arguments)))))
+(assert (equal? (flag "--xxx" '("--yyy")) #f))
+(assert (equal? (flag "--xxx" '("--xxx")) '()))
+(assert (equal? (flag "--xxx" '("--xxx" "yyy")) '("yyy")))
+(assert (equal? (flag "--xxx" '("--xxx" "yyy" "zzz")) '("yyy" "zzz")))
+(assert (equal? (flag "--xxx" '("--xxx" "yyy" "zzz" "--")) '("yyy" "zzz")))
+(assert (equal? (flag "--xxx" '("--xxx" "yyy" "--" "zzz")) '("yyy")))
+(assert (equal? (flag "--" '("--" "xxx" "yyy" "--" "zzz")) '("xxx" "yyy")))