YamaKen
yamak****@bp*****
2004年 4月 22日 (木) 05:38:25 JST
ヤマケンです。 At Thu, 15 Apr 2004 03:21:05 +0900, yamak****@bp***** wrote: > At Thu, 15 Apr 2004 01:26:18 +0900 (JST), > kou****@cozmi***** wrote: > > uim-shellを別プロセスで起動して，他のScheme処理系から > > uim-shellに対してwrite/readして，その結果をテストしてはどう > > でしょうか？ > > サンプルとして，Gaucheでテストが書けるようになるパッチを添付 > > します(trunk用)． > > ありがとうございます。まだ試してませんが、ざっと見たところ十分な > 機能を持っているようなので取り込んで使わせて頂きたいと思います。 > GaUnit作者の須藤さんに直接協力して頂けるのは非常に心強いです。 > > uim-shellの方もこのまま特に意見が出ないようなら単独コマンドとし > て取り込みたいと思います。名前はuim-shの方がいいような気がしてき > ましたが。 遅くなりましたが、uim-shとともにcommitしました。しかし、今のとこ ろ私の手元ではまだ動かす事ができていません。Gaucheのデバッグは勝 手がわからないので、すいませんがちょっと見て頂けないでしょうか。 どうもuim-shとうまく通信できていない感じです。FreeBSD 5.2-CURRENTでは以下のような2通りの挙動をランダムに示し、Linuxで は起動直後からnanosleepのループが回りっぱなしになってしまうよう です。 $ uname -sr FreeBSD 5.2-CURRENT $ gosh -V Gauche scheme interpreter, version 0.7.4.2 [utf-8] $ gosh -I. test/test-uim.scm - Start test suite Default test suite F ./test/test-uim.scm:10: (assert-false (uim-bool '(control-char? 33))) expected:<#f> but was:<#t> in test control-char? .F ./test/test-uim.scm:13: (assert-false (uim-bool '(control-char? 33))) expected:<#f> but was:<#t> in test control-char? . 2 tests, 4 assertions, 2 successes, 2 failures, 0 errors Testing time: 0.023805 $ gosh -I. test/test-uim.scm - Start test suite Default test suite F ./test/test-uim.scm:10: (assert-false (uim-bool '(control-char? 33))) expected:<#f> but was:<#t> in test control-char? .*** ERROR: unhandled signal 13 (SIGPIPE) Stack Trace: _______________________________________ 0 (flush-all-ports) At line 19 of "./test/uim-test-utils.scm" 1 (uim sexp) At line 27 of "./test/uim-test-utils.scm" 2 (uim-bool '(control-char? 33)) At line 13 of "./test/test-uim.scm" 3 (assert-false (uim-bool '(control-char? 33))) At line 13 of "./test/test-uim.scm" 4 (test-thunk) At line 55 of "/usr/local/share/gauche/site/lib/test/ui/text.scm" 5 (test-thunk) At line 60 of "/usr/local/share/gauche/site/lib/test/ui/text.scm" 6 (for-each (lambda (test-case) (run test-case :ui ui)) (test-cases- ... At line 211 of "/usr/local/share/gauche/site/lib/test/unit.scm" 7 (#<id 0x81583b0 gauche.time::dynamic-wind> (#<id 0x8158320 gauche. ... [unknown location] ^C^C^C^C*** ERROR: unhandled signal 2 (SIGINT) Stack Trace: _______________________________________ 0 (close-input-port (process-input *uim-process*)) At line 41 of "./test/uim-test-utils.scm" 1 (flush-all-ports) At line 19 of "./test/uim-test-utils.scm" 2 (uim sexp) At line 27 of "./test/uim-test-utils.scm" 3 (uim-bool '(control-char? 33)) At line 13 of "./test/test-uim.scm" 4 (assert-false (uim-bool '(control-char? 33))) At line 13 of "./test/test-uim.scm" 5 (test-thunk) At line 55 of "/usr/local/share/gauche/site/lib/test/ui/text.scm" 6 (test-thunk) At line 60 of "/usr/local/share/gauche/site/lib/test/ui/text.scm" 7 (for-each (lambda (test-case) (run test-case :ui ui)) (test-cases- ... At line 211 of "/usr/local/share/gauche/site/lib/test/unit.scm" 8 (#<id 0x81583b0 gauche.time::dynamic-wind> (#<id 0x8158320 gauche. ... [unknown location] $ uname -rs Linux 2.4.20 $ ls -l /lib/libc.so.6 lrwxrwxrwx 1 root root 13 Jan 25 21:29 /lib/libc.so.6 -> libc-2.3.2.so $ gosh -V Gauche scheme interpreter, version 0.7.4.2 [utf-8,pthreads] $ gosh -I. test/test-uim.scm - Start test suite Default test suite (ここで黙ってしまうので^C) E ./test/uim-test-utils.scm:25: (sys-nanosleep 100) Error occured in test control-char? *** ERROR: unhandled signal 2 (SIGINT) Stack Trace: _______________________________________ 0 (sys-nanosleep 100) At line 25 of "./test/uim-test-utils.scm" 1 (#<id 0x8093e30 scheme::letrec> ((#<id 0x82d5910 user::do> (#<id 0 ... [unknown location] 2 (uim sexp) At line 29 of "./test/uim-test-utils.scm" 3 (uim-bool '(control-char? 31)) At line 9 of "./test/test-uim.scm" 4 (assert-true (uim-bool '(control-char? 31))) At line 9 of "./test/test-uim.scm" 5 (test-thunk) At line 55 of "/usr/share/gauche/site/lib/test/ui/text.scm" 6 (test-thunk) At line 60 of "/usr/share/gauche/site/lib/test/ui/text.scm" 7 (for-each (lambda (test-case) (run test-case :ui ui)) (test-cases- ... At line 211 of "/usr/share/gauche/site/lib/test/unit.scm" 8 (#<id 0x8258fc0 gauche.time::dynamic-wind> (#<id 0x8258f70 gauche. ... [unknown location] ------------------------------- ヤマケン yamak****@bp*****
