Parent Directory | Revision Log | Patch
revision 1.7 by kryde, Fri Aug 22 22:57:46 2003 UTC | revision 1.8 by kryde, Sat Aug 30 00:02:44 2003 UTC | |
---|---|---|
# | Line 318 | Line 318 |
318 | ;; | ;; |
319 | ||
320 | (with-test-prefix "list-copy" | (with-test-prefix "list-copy" |
;; improper lists can be copied | ||
321 | (pass-if (equal? '() (list-copy '()))) | (pass-if (equal? '() (list-copy '()))) |
322 | (pass-if (equal? '(1 2) (list-copy '(1 2)))) | (pass-if (equal? '(1 2) (list-copy '(1 2)))) |
323 | (pass-if (equal? '(1 2 3) (list-copy '(1 2 3)))) | (pass-if (equal? '(1 2 3) (list-copy '(1 2 3)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |