This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=96ec2c9c65468b1404865371d19342d6badb0be9 The branch, master has been updated via 96ec2c9c65468b1404865371d19342d6badb0be9 (commit) from 2860ff4675cf1a47c28e1defe094894622d046b9 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 96ec2c9c65468b1404865371d19342d6badb0be9 Author: Andy Wingo <wi...@pobox.com> Date: Fri Apr 9 22:33:46 2010 +0200 elisp.test cleanups * test-suite/tests/elisp.test: Use quote and #nil instead of quasiquote and ,#nil. ----------------------------------------------------------------------- Summary of changes: test-suite/tests/elisp.test | 80 +++++++++++++++++++++--------------------- 1 files changed, 40 insertions(+), 40 deletions(-) diff --git a/test-suite/tests/elisp.test b/test-suite/tests/elisp.test index e648791..41800fd 100644 --- a/test-suite/tests/elisp.test +++ b/test-suite/tests/elisp.test @@ -78,7 +78,7 @@ (= (length (cons 'a (cons 'b (cons 'c #nil)))) 3)) (pass-if "length (with backquoted list)" - (= (length `(a b c . ,#nil)) 3)) + (= (length '(a b c . #nil)) 3)) (pass-if "write (#nil)" (string=? (with-output-to-string @@ -101,21 +101,21 @@ "(a)")) (pass-if "assq" - (and (equal? (assq 1 `((1 one) (2 two) . ,#nil)) + (and (equal? (assq 1 '((1 one) (2 two) . #nil)) '(1 one)) - (equal? (assq 3 `((1 one) (2 two) . ,#nil)) + (equal? (assq 3 '((1 one) (2 two) . #nil)) #f))) (pass-if "assv" - (and (equal? (assv 1 `((1 one) (2 two) . ,#nil)) + (and (equal? (assv 1 '((1 one) (2 two) . #nil)) '(1 one)) - (equal? (assv 3 `((1 one) (2 two) . ,#nil)) + (equal? (assv 3 '((1 one) (2 two) . #nil)) #f))) (pass-if "assoc" - (and (equal? (assoc 1 `((1 one) (2 two) . ,#nil)) + (and (equal? (assoc 1 '((1 one) (2 two) . #nil)) '(1 one)) - (equal? (assoc 3 `((1 one) (2 two) . ,#nil)) + (equal? (assoc 3 '((1 one) (2 two) . #nil)) #f))) (pass-if "with-fluids*" @@ -129,108 +129,108 @@ (pass-if "append!" (let ((a (copy-tree '(1 2 3))) - (b (copy-tree `(4 5 6 . ,#nil))) + (b (copy-tree '(4 5 6 . #nil))) (c (copy-tree '(7 8 9))) - (d (copy-tree `(a b c . ,#nil)))) + (d (copy-tree '(a b c . #nil)))) (equal? (append! a b c d) - `(1 2 3 4 5 6 7 8 9 a b c . ,#nil)))) + '(1 2 3 4 5 6 7 8 9 a b c . #nil)))) (pass-if "last-pair" - (equal? (last-pair `(1 2 3 4 5 . ,#nil)) + (equal? (last-pair '(1 2 3 4 5 . #nil)) (cons 5 #nil))) (pass-if "reverse" - (equal? (reverse `(1 2 3 4 5 . ,#nil)) + (equal? (reverse '(1 2 3 4 5 . #nil)) '(5 4 3 2 1))) ; Hmmm... is this OK, or ; should it be - ; `(5 4 3 2 1 . ,#nil) ? + ; '(5 4 3 2 1 . #nil) ? (pass-if "reverse!" - (equal? (reverse! (copy-tree `(1 2 3 4 5 . ,#nil))) + (equal? (reverse! (copy-tree '(1 2 3 4 5 . #nil))) '(5 4 3 2 1))) ; Ditto. (pass-if "list-ref" - (eq? (list-ref `(0 1 2 3 4 . ,#nil) 4) 4)) + (eq? (list-ref '(0 1 2 3 4 . #nil) 4) 4)) (pass-if-exception "list-ref" exception:out-of-range - (eq? (list-ref `(0 1 2 3 4 . ,#nil) 6) 6)) + (eq? (list-ref '(0 1 2 3 4 . #nil) 6) 6)) (pass-if "list-set!" - (let ((l (copy-tree `(0 1 2 3 4 . ,#nil)))) + (let ((l (copy-tree '(0 1 2 3 4 . #nil)))) (list-set! l 4 44) (= (list-ref l 4) 44))) (pass-if-exception "list-set!" exception:out-of-range - (let ((l (copy-tree `(0 1 2 3 4 . ,#nil)))) + (let ((l (copy-tree '(0 1 2 3 4 . #nil)))) (list-set! l 6 44) (= (list-ref l 6) 44))) (pass-if "list-cdr-set!" - (let ((l (copy-tree `(0 1 2 3 4 . ,#nil)))) + (let ((l (copy-tree '(0 1 2 3 4 . #nil)))) (and (begin (list-cdr-set! l 4 44) (equal? l '(0 1 2 3 4 . 44))) (begin - (list-cdr-set! l 3 `(new . ,#nil)) - (equal? l `(0 1 2 3 new . ,#nil)))))) + (list-cdr-set! l 3 '(new . #nil)) + (equal? l '(0 1 2 3 new . #nil)))))) (pass-if-exception "list-cdr-set!" exception:out-of-range - (let ((l (copy-tree `(0 1 2 3 4 . ,#nil)))) + (let ((l (copy-tree '(0 1 2 3 4 . #nil)))) (list-cdr-set! l 6 44))) (pass-if "memq" - (equal? (memq 'c `(a b c d . ,#nil)) `(c d . ,#nil))) + (equal? (memq 'c '(a b c d . #nil)) '(c d . #nil))) (pass-if "memv" - (equal? (memv 'c `(a b c d . ,#nil)) `(c d . ,#nil))) + (equal? (memv 'c '(a b c d . #nil)) '(c d . #nil))) (pass-if "member" - (equal? (member "c" `("a" "b" "c" "d" . ,#nil)) `("c" "d" . ,#nil))) + (equal? (member "c" '("a" "b" "c" "d" . #nil)) '("c" "d" . #nil))) (pass-if "list->vector" - (equal? '#(1 2 3) (list->vector `(1 2 3 . ,#nil)))) + (equal? '#(1 2 3) (list->vector '(1 2 3 . #nil)))) (pass-if "list->vector" - (equal? '#(1 2 3) (list->vector `(1 2 3 . ,#nil)))) + (equal? '#(1 2 3) (list->vector '(1 2 3 . #nil)))) (pass-if "list->weak-vector" - (equal? (weak-vector 1 2 3) (list->weak-vector `(1 2 3 . ,#nil)))) + (equal? (weak-vector 1 2 3) (list->weak-vector '(1 2 3 . #nil)))) (pass-if "sorted?" - (and (sorted? `(1 2 3 . ,#nil) <) - (not (sorted? `(1 6 3 . ,#nil) <)))) + (and (sorted? '(1 2 3 . #nil) <) + (not (sorted? '(1 6 3 . #nil) <)))) (pass-if "merge" (equal? (merge '(1 4 7 10) - (merge `(2 5 8 11 . ,#nil) - `(3 6 9 12 . ,#nil) + (merge '(2 5 8 11 . #nil) + '(3 6 9 12 . #nil) <) <) - `(1 2 3 4 5 6 7 8 9 10 11 12 . ,#nil))) + '(1 2 3 4 5 6 7 8 9 10 11 12 . #nil))) (pass-if "merge!" (equal? (merge! (copy-tree '(1 4 7 10)) - (merge! (copy-tree `(2 5 8 11 . ,#nil)) - (copy-tree `(3 6 9 12 . ,#nil)) + (merge! (copy-tree '(2 5 8 11 . #nil)) + (copy-tree '(3 6 9 12 . #nil)) <) <) - `(1 2 3 4 5 6 7 8 9 10 11 12 . ,#nil))) + '(1 2 3 4 5 6 7 8 9 10 11 12 . #nil))) (pass-if "sort" - (equal? (sort `(1 5 3 8 4 . ,#nil) <) '(1 3 4 5 8))) + (equal? (sort '(1 5 3 8 4 . #nil) <) '(1 3 4 5 8))) (pass-if "stable-sort" - (equal? (stable-sort `(1 5 3 8 4 . ,#nil) <) '(1 3 4 5 8))) + (equal? (stable-sort '(1 5 3 8 4 . #nil) <) '(1 3 4 5 8))) (pass-if "sort!" - (equal? (sort! (copy-tree `(1 5 3 8 4 . ,#nil)) <) + (equal? (sort! (copy-tree '(1 5 3 8 4 . #nil)) <) '(1 3 4 5 8))) (pass-if "stable-sort!" - (equal? (stable-sort! (copy-tree `(1 5 3 8 4 . ,#nil)) <) + (equal? (stable-sort! (copy-tree '(1 5 3 8 4 . #nil)) <) '(1 3 4 5 8)))) hooks/post-receive -- GNU Guile
