[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-9-71-g96e
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-9-71-g96ec2c9 |
Date: |
Fri, 09 Apr 2010 20:33:57 +0000 |
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 <address@hidden>
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-9-71-g96ec2c9,
Andy Wingo <=