[Guile-commits] GNU Guile branch, master, updated. release_1-9-9-71-g96ec2c9

[Andy Wingo]

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