Return to iso2022jp.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/iso2022jp.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 "ISO-2022-JP" $_from $_length
        !             8:     set timeout 10
        !             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 "\x1b\$B%F%9%H%F%9%H\x1b(B\r"
        !            25: sleep 1
        !            26: expect {
        !            27:     -ex "***ERROR***\r\n" { pass $test }
        !            28: }
        !            29: 
        !            30: close
        !            31: begin_strcut_test 2 -1
        !            32: 
        !            33: set test "asciish characters ($from, $length)"
        !            34: send "testtest\r"
        !            35: expect {
        !            36:     -ex "***ERROR***\r\n" { pass $test }
        !            37: }
        !            38: 
        !            39: set test "non-asciish characters ($from, $length)"
        !            40: send "\x1b\$B%F%9%H%F%9%H\x1b(B\r"
        !            41: sleep 1
        !            42: expect {
        !            43:     -ex "***ERROR***\r\n" { pass $test }
        !            44: }
        !            45: 
        !            46: close
        !            47: begin_strcut_test 3 2
        !            48: 
        !            49: set test "asciish characters ($from, $length)"
        !            50: send "testtest\r"
        !            51: expect {
        !            52:     -ex "%74%74 (2)\r\n" { pass $test }
        !            53: }
        !            54: 
        !            55: set test "non-asciish characters ($from, $length)"
        !            56: send "\x1b\$B%F%9%H%F%9%H\x1b(B\r"
        !            57: sleep 1
        !            58: expect {
        !            59:     -ex " (0)\r\n" { pass $test }
        !            60: }
        !            61: 
        !            62: close
        !            63: begin_strcut_test 5 8
        !            64: 
        !            65: set test "asciish characters ($from, $length)"
        !            66: send "testtest\r"
        !            67: expect {
        !            68:     -ex "%65%73%74 (3)\r\n" { pass $test }
        !            69: }
        !            70: 
        !            71: set test "non-asciish characters ($from, $length)"
        !            72: sleep 1
        !            73: send "\x1b\$B%F%9%H%F%9%H\x1b(B\r"
        !            74: sleep 1
        !            75: expect {
        !            76:     -ex "%1b%24%42%25%39%1b%28%42 (8)\r\n" { pass $test }
        !            77: }
        !            78: 
        !            79: close
        !            80: begin_strcut_test 1 15
        !            81: 
        !            82: set test "asciish characters ($from, $length)"
        !            83: send "testestestestestes\r"
        !            84: expect {
        !            85:      "%65%73%74%65%73%74%65%73%74%65%73%74%65%73%74 (15)\r\n" { pass $test }
        !            86: }
        !            87: 
        !            88: set test "non-asciish characters ($from, $length)"
        !            89: send "\x1b\$B%F%9%H%F%9%H\x1b(B\r"
        !            90: sleep 1
        !            91: expect {
        !            92:     -ex "%1b%24%42%25%46%25%39%25%48%25%46%1b%28%42 (14)\r\n" { pass $test }
        !            93: }
        !            94: close
        !            95: begin_strcut_test 8 20
        !            96: 
        !            97: set test "non-asciish characters (2) ($from, $length)"
        !            98: send "\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x24\x46\x24\x39\x24\x48\x1b\x28\x49\x4a\x5e\x4a\x5e\x4a\x5e\x43\x3d\x44\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\r"
        !            99: sleep 1
        !           100: expect {
        !           101:     -ex "%74%1b%24%42%25%39%1b%28%42%74%1b%24%42%25%48%24%46%1b%28%42 (20)\r\n" {
        !           102:         pass $test
        !           103:     }
        !           104: }
        !           105: 
        !           106: begin_strcut_test 8 21
        !           107: 
        !           108: set test "non-asciish characters (2) ($from, $length)"
        !           109: send "\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x24\x46\x24\x39\x24\x48\x1b\x28\x49\x4a\x5e\x4a\x5e\x4a\x5e\x43\x3d\x44\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\r"
        !           110: sleep 1
        !           111: expect {
        !           112:     -ex "%74%1b%24%42%25%39%1b%28%42%74%1b%24%42%25%48%24%46%1b%28%42 (20)\r\n" {
        !           113:         pass $test
        !           114:     }
        !           115: }
        !           116: 
        !           117: begin_strcut_test 11 17
        !           118: 
        !           119: set test "non-asciish characters (2) ($from, $length)"
        !           120: send "\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x24\x46\x24\x39\x24\x48\x1b\x28\x49\x4a\x5e\x4a\x5e\x4a\x5e\x43\x3d\x44\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\x1b\x24\x42\x25\x46\x1b\x28\x42\x74\x1b\x24\x42\x25\x39\x1b\x28\x42\x74\x1b\x24\x42\x25\x48\x1b\x28\x42\x74\r"
        !           121: sleep 1
        !           122: expect {
        !           123:     -ex "%1b%24%42%25%39%1b%28%42%74%1b%24%42%25%48%1b%28%42 (17)\r\n" {
        !           124:         pass $test
        !           125:     }
        !           126: }
        !           127: 
        !           128: 
        !           129: # vim: sts=4 sw=4 ts=4 et