????JFIF??x?x????'
| Server IP : 79.136.114.73 / Your IP : 216.73.216.191 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/self/root/home/b8009/php-5.6.22/ext/mbstring/libmbfl/tests/strcut.tests/ |
Upload File : |
#!/usr/bin/expect -f
proc begin_strcut_test {_from _length} {
global spawn_id from length
set from $_from
set length $_length
spawn tests/strcut Japanese UTF-8 $_from $_length
set timeout 1
expect_after {
"\[^\r\n\]*\r\n" { fail $test }
}
}
begin_strcut_test -1 2
set test "asciish characters ($from, $length)"
send "testtest\r"
expect {
-ex "***ERROR***\r\n" { pass $test }
}
set test "non-asciish characters ($from, $length)"
send "テストテスト\r"
expect {
-ex "***ERROR***\r\n" { pass $test }
}
close
begin_strcut_test 2 -1
set test "asciish characters ($from, $length)"
send "testtest\r"
expect {
-ex "***ERROR***\r\n" { pass $test }
}
set test "non-asciish characters ($from, $length)"
send "テストテスト\r"
expect {
-ex "***ERROR***\r\n" { pass $test }
}
close
begin_strcut_test 3 2
set test "asciish characters ($from, $length)"
send "testtest\r"
expect {
-ex "%74%74 (2)\r\n" { pass $test }
}
set test "non-asciish characters ($from, $length)"
send "テストテスト\r"
expect {
-ex "(0)\r\n" { pass $test }
}
close
begin_strcut_test 5 8
set test "asciish characters ($from, $length)"
send "testtest\r"
expect {
-ex "%65%73%74 (3)\r\n" { pass $test }
}
set test "non-asciish characters ($from, $length)"
send "テストテスト\r"
expect {
-ex "%e3%82%b9%e3%83%88 (6)\r\n" { pass $test }
}
close
begin_strcut_test 1 15
set test "asciish characters ($from, $length)"
send "testestestestestes\r"
expect {
"%65%73%74%65%73%74%65%73%74%65%73%74%65%73%74 (15)\r\n" { pass $test }
}
set test "non-asciish characters ($from, $length)"
send "テストテスト\r"
expect {
-ex "%e3%83%86%e3%82%b9%e3%83%88%e3%83%86%e3%82%b9 (15)\r\n" { pass $test }
}
close
# vim: sts=4 sw=4 ts=4 et encoding=UTF-8