Return to ujis.exp CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / mbstring / libmbfl / tests / strcut.tests

Annotation of embedaddon/php/ext/mbstring/libmbfl/tests/strcut.tests/ujis.exp, revision 1.1

1.1     ! misho       1: #!/usr/bin/expect -f
        !             2: proc begin_strcut_test {_from _length} {
        !             3:     global spawn_id from length
        !             4:     set from $_from
        !             5:     set length $_length
        !             6: 
        !             7:     spawn tests/strcut Japanese EUC-JP $_from $_length
        !             8:     set timeout 1
        !             9: 
        !            10:     expect_after {
        !            11:         "\[^\r\n\]*\r\n" { fail $test }
        !            12:     }
        !            13: }
        !            14: 
        !            15: begin_strcut_test -1 2
        !            16: 
        !            17: set test "asciish characters ($from, $length)"
        !            18: send "testtest\r"
        !            19: expect {
        !            20:     -ex "***ERROR***\r\n" { pass $test }
        !            21: }
        !            22: 
        !            23: set test "non-asciish characters ($from, $length)"
        !            24: send "テストテスト\r"
        !            25: expect {
        !            26:     -ex "***ERROR***\r\n" { pass $test }
        !            27: }
        !            28: 
        !            29: close
        !            30: begin_strcut_test 2 -1
        !            31: 
        !            32: set test "asciish characters ($from, $length)"
        !            33: send "testtest\r"
        !            34: expect {
        !            35:     -ex "***ERROR***\r\n" { pass $test }
        !            36: }
        !            37: 
        !            38: set test "non-asciish characters ($from, $length)"
        !            39: send "テストテスト\r"
        !            40: expect {
        !            41:     -ex "***ERROR***\r\n" { pass $test }
        !            42: }
        !            43: 
        !            44: close
        !            45: begin_strcut_test 3 2
        !            46: 
        !            47: set test "asciish characters ($from, $length)"
        !            48: send "testtest\r"
        !            49: expect {
        !            50:     -ex "%74%74 (2)\r\n" { pass $test }
        !            51: }
        !            52: 
        !            53: set test "non-asciish characters ($from, $length)"
        !            54: send "テストテスト\r"
        !            55: expect {
        !            56:     -ex "%a5%b9 (2)\r\n" { pass $test }
        !            57: }
        !            58: 
        !            59: close
        !            60: begin_strcut_test 5 8
        !            61: 
        !            62: set test "asciish characters ($from, $length)"
        !            63: send "testtest\r"
        !            64: expect {
        !            65:     -ex "%65%73%74 (3)\r\n" { pass $test }
        !            66: }
        !            67: 
        !            68: set test "non-asciish characters ($from, $length)"
        !            69: send "テストテスト\r"
        !            70: expect {
        !            71:     -ex "%a5%c8%a5%c6%a5%b9%a5%c8 (8)\r\n" { pass $test }
        !            72: }
        !            73: 
        !            74: close
        !            75: begin_strcut_test 1 15
        !            76: 
        !            77: set test "asciish characters ($from, $length)"
        !            78: send "testestestestestes\r"
        !            79: expect {
        !            80:      "%65%73%74%65%73%74%65%73%74%65%73%74%65%73%74 (15)\r\n" { pass $test }
        !            81: }
        !            82: 
        !            83: set test "non-asciish characters ($from, $length)"
        !            84: send "テストテスト\r"
        !            85: expect {
        !            86:     -ex "%a5%c6%a5%b9%a5%c8%a5%c6%a5%b9%a5%c8 (12)\r\n" { pass $test }
        !            87: }
        !            88: close
        !            89: 
        !            90: 
        !            91: # vim: sts=4 sw=4 ts=4 et encoding=EUC-JP