Author: yamakenz
Date: Thu May 24 09:53:47 2007
New Revision: 4566
Modified:
sigscheme-trunk/test/gauche-euc-jp.scm
sigscheme-trunk/test/test-enc-eucgeneric.scm
sigscheme-trunk/test/test-enc-eucjp.scm
sigscheme-trunk/test/test-enc-sjis.scm
sigscheme-trunk/test/test-enc-utf8.scm
Log:
* test/gauche-euc-jp.scm
* test/test-enc-eucgeneric.scm
* test/test-enc-eucjp.scm
* test/test-enc-sjis.scm
* test/test-enc-utf8.scm
- Follow the specification change of string-set! and string-fill! in r4552
Modified: sigscheme-trunk/test/gauche-euc-jp.scm
==============================================================================
--- sigscheme-trunk/test/gauche-euc-jp.scm (original)
+++ sigscheme-trunk/test/gauche-euc-jp.scm Thu May 24 09:53:47 2007
@@ -64,7 +64,10 @@
(test "string-set!" "����Z�ˤ�" (lambda () (string-set! x 2 #\Z) x))
(test "string-fill!" "�ΤΤΤΤΤ�"
- (lambda () (string-fill! (string-copy "000000") #\��)))
+ (lambda ()
+ (let ((s (string-copy "000000")))
+ (string-fill! s #\��)
+ s)))
;; SRFI-13
;;(test "string-fill!" "000�ΤΤ�"
;; (lambda () (string-fill! (string-copy "000000") #\�� 3)))
Modified: sigscheme-trunk/test/test-enc-eucgeneric.scm
==============================================================================
--- sigscheme-trunk/test/test-enc-eucgeneric.scm (original)
+++ sigscheme-trunk/test/test-enc-eucgeneric.scm Thu May 24 09:53:47 2007
@@ -57,10 +57,9 @@
(assert-equal? "make-string 1" "����������" (make-string 5 #\��))
(assert-equal? "string-copy 1" "������" (string-copy "������"))
-(assert-equal? "string-set! 1" "���˶�" (string-set!
- (string-copy "���ˤ�")
- 2
- #\��))
+(assert-equal? "string-set! 1" "���˶�" (let ((s (string-copy "���ˤ�")))
+ (string-set! s 2 #\��)
+ s))
(define str1 "����ah˽\\˽n!����!")
(define str1-list '(#\�� #\�� #\a #\h #\˽ #\\ #\˽ #\n #\! #\�� #\�� #\!))
Modified: sigscheme-trunk/test/test-enc-eucjp.scm
==============================================================================
--- sigscheme-trunk/test/test-enc-eucjp.scm (original)
+++ sigscheme-trunk/test/test-enc-eucjp.scm Thu May 24 09:53:47 2007
@@ -70,10 +70,9 @@
(define str (string-copy
"ai��eo"))
(string-set! str 2 #\u)
str)))
-(assert-equal? "string-set! 1" "���˶�" (string-set!
- (string-copy "���ˤ�")
- 2
- #\��))
+(assert-equal? "string-set! 1" "���˶�" (let ((s (string-copy "���ˤ�")))
+ (string-set! s 2 #\��)
+ s))
;; string-length
Modified: sigscheme-trunk/test/test-enc-sjis.scm
==============================================================================
--- sigscheme-trunk/test/test-enc-sjis.scm (original)
+++ sigscheme-trunk/test/test-enc-sjis.scm Thu May 24 09:53:47 2007
@@ -51,10 +51,9 @@
(assert-equal? "string-ref 1" #\�� (string-ref "��hi��͕�" 3))
(assert-equal? "make-string 1" "����������" (make-string 5 #\��))
(assert-equal? "string-copy 1" "���⍁" (string-copy "���⍁"))
-(assert-equal? "string-set! 1" "���j��" (string-set!
- (string-copy "���j��")
- 2
- #\��))
+(assert-equal? "string-set! 1" "���j��" (let ((s (string-copy "���j��")))
+ (string-set! s 2 #\��)
+ s))
Modified: sigscheme-trunk/test/test-enc-utf8.scm
==============================================================================
--- sigscheme-trunk/test/test-enc-utf8.scm (original)
+++ sigscheme-trunk/test/test-enc-utf8.scm Thu May 24 09:53:47 2007
@@ -50,10 +50,9 @@
(assert-equal? "string-ref 1" #\歩 (string-ref "歯hi歩ﾍ歩" 3))
(assert-equal? "make-string 1" "歩歩歩歩歩" (make-string 5 #\歩))
(assert-equal? "string-copy 1" "金銀香" (string-copy "金銀香"))
-(assert-equal? "string-set! 1" "金桂玉" (string-set!
- (string-copy "金桂と")
- 2
- #\玉))
+(assert-equal? "string-set! 1" "金桂玉" (let ((s (string-copy "金桂と")))
+ (string-set! s 2 #\玉)
+ s))
(define str1 "あﾋャah暴\\暴n!☆錳◎!")
