Author: koutou
Date: Sat Mar 21 20:00:57 2009
New Revision: 5899
Modified:
trunk/test/test-ustr.scm
Log:
* test/test-ustr.scm: use '() instead of ().
Modified: trunk/test/test-ustr.scm
==============================================================================
--- trunk/test/test-ustr.scm (original)
+++ trunk/test/test-ustr.scm Sat Mar 21 20:00:57 2009
@@ -109,38 +109,38 @@
(uim '(ustr-former-seq ustr-fl)))
(assert-equal '(("h" . "H") ("e" . "E") ("l" . "L") ("l" . "L")
("o" . "O"))
(uim '(ustr-former-seq ustr-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustr-l)))
(assert-equal '("h" "e" "l")
(uim '(ustr-former-seq ustra-fl)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '(("に" "ニ" "ニ") ("ほ" "ホ" "ホ") ("ん" "ン" "ン"))
(uim '(ustr-former-seq ustrj-fl)))
(assert-equal '(("に" "ニ" "ニ") ("ほ" "ホ" "ホ") ("ん" "ン" "ン")
("ご" "ゴ" "ゴ") ("じゃ" "ジャ" "ジャ"))
(uim '(ustr-former-seq ustrj-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustrj-l))))
(define (test-ustr-latter-seq)
(assert-equal '(("l" . "L") ("o" . "O"))
(uim '(ustr-latter-seq ustr-fl)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustr-f)))
(assert-equal '(("h" . "H") ("e" . "E") ("l" . "L") ("l" . "L")
("o" . "O"))
(uim '(ustr-latter-seq ustr-l)))
(assert-equal '("l" "o")
(uim '(ustr-latter-seq ustra-fl)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
(assert-equal '(("ご" "ゴ" "ゴ") ("じゃ" "ジャ" "ジャ"))
(uim '(ustr-latter-seq ustrj-fl)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustrj-f)))
(assert-equal '(("に" "ニ" "ニ") ("ほ" "ホ" "ホ") ("ん" "ン" "ン")
("ご" "ゴ" "ゴ") ("じゃ" "ジャ" "ジャ"))
@@ -159,26 +159,26 @@
(uim '(ustr-whole-seq ustra-fl)))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-former-seq ustra-fl)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-fl)))
;; former
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-whole-seq ustra-f)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(uim-eval '(ustr-set-whole-seq! ustra-f '("w" "o" "r" "L" "d")))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-whole-seq ustra-f)))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
;; latter
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-whole-seq ustra-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
@@ -187,7 +187,7 @@
(uim '(ustr-whole-seq ustra-l)))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-former-seq ustra-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-l))))
(define (test-ustr-set-former-seq!)
@@ -210,19 +210,19 @@
(uim '(ustr-whole-seq ustra-f)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(uim-eval '(ustr-set-former-seq! ustra-f '("w" "o" "r" "L" "d")))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-whole-seq ustra-f)))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
;; latter
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-whole-seq ustra-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
@@ -254,7 +254,7 @@
(uim '(ustr-whole-seq ustra-f)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(uim-eval '(ustr-set-latter-seq! ustra-f '("w" "o" "r" "L" "d")))
(assert-equal '("h" "e" "l" "l" "o" "w" "o" "r" "L" "d")
@@ -266,14 +266,14 @@
;; latter
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-whole-seq ustra-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
(uim-eval '(ustr-set-latter-seq! ustra-l '("w" "o" "r" "L" "d")))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-whole-seq ustra-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("w" "o" "r" "L" "d")
(uim '(ustr-latter-seq ustra-l))))
@@ -592,7 +592,7 @@
;; position 5 in former-str
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(assert-equal 5
(uim '(ustr-length ustra-f)))
@@ -604,7 +604,7 @@
(uim '(ustr-nth ustra-f 5))))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(assert-equal 5
(uim '(ustr-length ustra-f)))
@@ -613,7 +613,7 @@
;; position 4 in former-str
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(assert-equal 5
(uim '(ustr-length ustra-f)))
@@ -624,14 +624,14 @@
(uim '(ustr-nth ustra-f 4)))
(assert-equal '("h" "e" "l" "l" "O")
(uim '(ustr-former-seq ustra-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-latter-seq ustra-f)))
(assert-equal 5
(uim '(ustr-length ustra-f)))
(assert-equal 5
(uim '(ustr-cursor-pos ustra-f)))
;; position 0 in latter-str
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("h" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
@@ -642,7 +642,7 @@
(uim-eval '(ustr-set-nth! ustra-l 0 "H"))
(assert-equal "H"
(uim '(ustr-nth ustra-l 0)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-former-seq ustra-l)))
(assert-equal '("H" "e" "l" "l" "o")
(uim '(ustr-latter-seq ustra-l)))
@@ -996,7 +996,7 @@
(assert-equal '("ニ" "ホ" "ン" "ゴ" "ジャ")
(uim '(map-ustr-whole ja-kana-hankaku ustrj-l)))
;; empty
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-whole cdr ustre))))
(define (test-map-ustr-former)
@@ -1023,18 +1023,18 @@
(assert-equal '("ニ" "ホ" "ン" "ゴ" "ジャ")
(uim '(map-ustr-former ja-kana-hankaku ustrj-f)))
;; latter
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former car ustr-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former cdr ustr-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former ja-kana-hiragana ustrj-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former ja-kana-katakana ustrj-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former ja-kana-hankaku ustrj-l)))
;; empty
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-former cdr ustre))))
(define (test-map-ustr-latter)
@@ -1050,15 +1050,15 @@
(assert-equal '("ゴ" "ジャ")
(uim '(map-ustr-latter ja-kana-hankaku ustrj-fl)))
;; former
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter car ustr-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter cdr ustr-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter ja-kana-hiragana ustrj-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter ja-kana-katakana ustrj-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter ja-kana-hankaku ustrj-f)))
;; latter
(assert-equal '("h" "e" "l" "l" "o")
@@ -1072,7 +1072,7 @@
(assert-equal '("ニ" "ホ" "ン" "ゴ" "ジャ")
(uim '(map-ustr-latter ja-kana-hankaku ustrj-l)))
;; empty
- (assert-equal ()
+ (assert-equal '()
(uim '(map-ustr-latter cdr ustre))))
(define (test-append-map-ustr-whole)
@@ -1082,7 +1082,7 @@
(uim '(append-map-ustr-whole cdr ustrj-f)))
(assert-equal '("ニ" "ニ" "ホ" "ホ" "ン" "ン" "ゴ" "ゴ" "ジャ" "ジャ")
(uim '(append-map-ustr-whole cdr ustrj-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(append-map-ustr-whole cdr ustre))))
(define (test-append-map-ustr-former)
@@ -1090,19 +1090,19 @@
(uim '(append-map-ustr-former cdr ustrj-fl)))
(assert-equal '("ニ" "ニ" "ホ" "ホ" "ン" "ン" "ゴ" "ゴ" "ジャ" "ジャ")
(uim '(append-map-ustr-former cdr ustrj-f)))
- (assert-equal ()
+ (assert-equal '()
(uim '(append-map-ustr-former cdr ustrj-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(append-map-ustr-former cdr ustre))))
(define (test-append-map-ustr-latter)
(assert-equal '("ゴ" "ゴ" "ジャ" "ジャ")
(uim '(append-map-ustr-latter cdr ustrj-fl)))
- (assert-equal ()
+ (assert-equal '()
(uim '(append-map-ustr-latter cdr ustrj-f)))
(assert-equal '("ニ" "ニ" "ホ" "ホ" "ン" "ン" "ゴ" "ゴ" "ジャ" "ジャ")
(uim '(append-map-ustr-latter cdr ustrj-l)))
- (assert-equal ()
+ (assert-equal '()
(uim '(append-map-ustr-latter cdr ustre))))
(define (test-string-append-map-ustr-whole)
@@ -1747,7 +1747,7 @@
(uim '(ustr-cursor-frontside ustre))))
(assert-equal 0
(uim '(ustr-length ustre)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-whole-seq ustre))))
(define (test-ustr-cursor-set-backside!)
@@ -1816,7 +1816,7 @@
(uim '(ustr-cursor-backside ustre))))
(assert-equal 0
(uim '(ustr-length ustre)))
- (assert-equal ()
+ (assert-equal '()
(uim '(ustr-whole-seq ustre))))
(define (test-ustr-insert-seq!)
