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

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