/[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.5 by kryde, Mon Jul 28 23:45:31 2003 UTC revision 1.6 by kryde, Mon Jul 28 23:51:41 2003 UTC
# Line 297  Line 297 
297              (drop '(a b . c) 2))))              (drop '(a b . c) 2))))
298    
299  ;;  ;;
300    ;; length+
301    ;;
302    
303    (with-test-prefix "length+"
304      (pass-if-exception "too few args" exception:wrong-num-args
305        (length+))
306      (pass-if-exception "too many args" exception:wrong-num-args
307        (length+ 123 456))
308      (pass-if (= 0 (length+ '())))
309      (pass-if (= 1 (length+ '(x))))
310      (pass-if (= 2 (length+ '(x y))))
311      (pass-if (= 3 (length+ '(x y z))))
312      (pass-if (not (length+ (circular-list 1))))
313      (pass-if (not (length+ (circular-list 1 2))))
314      (pass-if (not (length+ (circular-list 1 2 3)))))
315    
316    ;;
317  ;; take  ;; take
318  ;;  ;;
319    

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

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