/[guile]/guile/guile-core/test-suite/tests/srfi-1.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/srfi-1.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by kryde, Mon Jul 28 23:51:41 2003 UTC revision 1.7 by kryde, Fri Aug 22 22:57:46 2003 UTC
# Line 314  Line 314 
314    (pass-if (not (length+ (circular-list 1 2 3)))))    (pass-if (not (length+ (circular-list 1 2 3)))))
315    
316  ;;  ;;
317    ;; list-copy
318    ;;
319    
320    (with-test-prefix "list-copy"
321      
322      ;; improper lists can be copied
323      (pass-if (equal? '()          (list-copy '())))
324      (pass-if (equal? '(1 2)       (list-copy '(1 2))))
325      (pass-if (equal? '(1 2 3)     (list-copy '(1 2 3))))
326      (pass-if (equal? '(1 2 3 4)   (list-copy '(1 2 3 4))))
327      (pass-if (equal? '(1 2 3 4 5) (list-copy '(1 2 3 4 5))))
328      
329      ;; improper lists can be copied
330      (pass-if (equal? 1              (list-copy 1)))
331      (pass-if (equal? '(1 . 2)       (list-copy '(1 . 2))))
332      (pass-if (equal? '(1 2 . 3)     (list-copy '(1 2 . 3))))
333      (pass-if (equal? '(1 2 3 . 4)   (list-copy '(1 2 3 . 4))))
334      (pass-if (equal? '(1 2 3 4 . 5) (list-copy '(1 2 3 4 . 5)))))
335    
336    ;;
337  ;; take  ;; take
338  ;;  ;;
339    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26