Author: koutou
Date: Sat Mar 21 22:51:39 2009
New Revision: 5911
Modified:
trunk/test/test-uim-util.scm
trunk/test/util/test-list.scm
Log:
* test/test-uim-util.scm: move nthcdr test to ...
* test/util/test-list.scm: ... here.
Modified: trunk/test/test-uim-util.scm
==============================================================================
--- trunk/test/test-uim-util.scm (original)
+++ trunk/test/test-uim-util.scm Sat Mar 21 22:51:39 2009
@@ -35,26 +35,6 @@
(require "test/uim-test-utils")
-(define-uim-test-case "testcase uim-util"
- (setup
- (lambda ()
- (uim '(require "util.scm"))
- (uim '(define lst '(1 2 3 4)))))
-
- ("test nthcdr"
- (assert-equal '(1 2 3 4)
- (uim '(nthcdr 0 lst)))
- (assert-equal '(2 3 4)
- (uim '(nthcdr 1 lst)))
- (assert-equal '(3 4)
- (uim '(nthcdr 2 lst)))
- (assert-equal '(4)
- (uim '(nthcdr 3 lst)))
- (assert-equal ()
- (uim '(nthcdr 4 lst)))
- (assert-equal #f
- (uim '(nthcdr 5 lst)))))
-
;; this test assumes that string encoding of Gauche is configured as
;; UTF-8
(define-uim-test-case "testcase uim-util rk"
Modified: trunk/test/util/test-list.scm
==============================================================================
--- trunk/test/util/test-list.scm (original)
+++ trunk/test/util/test-list.scm Sat Mar 21 22:51:39 2009
@@ -567,4 +567,20 @@
'(list-join '(() () ()) "/"))
#f)
+(define (test-nthcdr)
+ (uim-eval '(define lst '(1 2 3 4)))
+ (assert-uim-equal '(1 2 3 4)
+ '(nthcdr 0 lst))
+ (assert-uim-equal '(2 3 4)
+ '(nthcdr 1 lst))
+ (assert-uim-equal '(3 4)
+ '(nthcdr 2 lst))
+ (assert-uim-equal '(4)
+ '(nthcdr 3 lst))
+ (assert-uim-equal ()
+ '(nthcdr 4 lst))
+ (assert-uim-equal #f
+ '(nthcdr 5 lst))
+ #f)
+
(provide "test/util/test-list")
