Author: yamakenz
Date: Thu Jul 5 05:04:40 2007
New Revision: 4668
Added:
sigscheme-trunk/test/test-srfi1-obsolete.scm
- copied, changed from r4663, /sigscheme-trunk/test/test-srfi1.scm
Removed:
sigscheme-trunk/test/test-srfi1.scm
Modified:
sigscheme-trunk/test/Makefile.am
sigscheme-trunk/test/test-srfi1-another.scm
Log:
* test/test-srfi1.scm
- Rename to test-srfi1-obsolete.scm
* test/test-srfi1-obsolete.scm
- Renamed from test-srfi1.scm
- Move lset tests to test-srfi1-another.scm
* test/test-srfi1-another.scm
- Moved lset tests from test-srfi1-obsolete.scm
* test/Makefile.am
Follow the file renaming
Modified: sigscheme-trunk/test/Makefile.am
==============================================================================
--- sigscheme-trunk/test/Makefile.am (original)
+++ sigscheme-trunk/test/Makefile.am Thu Jul 5 05:04:40 2007
@@ -40,8 +40,8 @@
test-obsolete.scm \
test-pair.scm \
test-quote.scm \
- test-srfi1.scm \
test-srfi1-another.scm \
+ test-srfi1-obsolete.scm \
test-srfi2.scm \
test-srfi6.scm \
test-srfi8.scm \
Modified: sigscheme-trunk/test/test-srfi1-another.scm
==============================================================================
--- sigscheme-trunk/test/test-srfi1-another.scm (original)
+++ sigscheme-trunk/test/test-srfi1-another.scm Thu Jul 5 05:04:40 2007
@@ -2493,12 +2493,26 @@
;; lset-union
;; lset-intersection
;; lset-difference
+
;; lset-xor
+(tn "lset-xor")
+;; To test the bug of the original srfi-1-reference.scm
+(assert-equal? (tn)
+ '("d")
+ (lset-xor equal? '("a" "b" "c") '("d" "c" "a" "b")))
+
;; lset-diff+intersection
;; lset-union!
;; lset-intersection!
;; lset-difference!
+
;; lset-xor!
+(tn "lset-xor!")
+;; To test the bug of the original srfi-1-reference.scm
+(assert-equal? (tn)
+ '("d")
+ (lset-xor equal? (list "a" "b" "c") (list "d" "c" "a" "b")))
+
;; lset-diff+intersection!
Copied: sigscheme-trunk/test/test-srfi1-obsolete.scm (from r4663,
/sigscheme-trunk/test/test-srfi1.scm)
==============================================================================
--- /sigscheme-trunk/test/test-srfi1.scm (original)
+++ sigscheme-trunk/test/test-srfi1-obsolete.scm Thu Jul 5 05:04:40 2007
@@ -1,5 +1,5 @@
-;; Filename : test-srfi1.scm
-;; About : unit test for SRFI-1
+;; Filename : test-srfi1-obsolete.scm
+;; About : unit test for SRFI-1 (obsolete version)
;;
;; Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
;; Copyright (c) 2007 SigScheme Project <uim-en AT googlegroups.com>
@@ -203,18 +203,6 @@
(assert-equal? "concatenate test 7" '(a b) (concatenate '((a b))))
(assert-equal? "concatenate test 8" '(a b c d) (concatenate '((a b) (c d))))
(assert-equal? "concatenate test 9" '(a b c d e f) (concatenate '((a b) (c d)
(e f))))
-
-(tn "lset-xor")
-;; To test the bug of the original srfi-1-reference.scm
-(assert-equal? (tn)
- '("d")
- (lset-xor equal? '("a" "b" "c") '("d" "c" "a" "b")))
-
-(tn "lset-xor!")
-;; To test the bug of the original srfi-1-reference.scm
-(assert-equal? (tn)
- '("d")
- (lset-xor equal? (list "a" "b" "c") (list "d" "c" "a" "b")))
(total-report)
