• R/O
  • SSH
  • HTTPS

ttssh2: Commit


Commit MetaInfo

Revision8821 (tree)
Time2020-07-02 23:56:21
Authorzmatsuo

Log Message

結合文字+行末wrap処理テスト

Change Summary

Incremental Difference

--- trunk/tests/unicodebuf-combining.pl (nonexistent)
+++ trunk/tests/unicodebuf-combining.pl (revision 8821)
@@ -0,0 +1,37 @@
1+# 結合文字、行末処理テスト
2+
3+use utf8;
4+use Time::HiRes 'usleep';
5+
6+binmode STDOUT, ":utf8";
7+local $| = 1;
8+
9+$sleep_time = 100*1000;
10+
11+# U+0041 + U+0302 (A + ^ → Â)
12+for ($i = 0; $i < 80; $i++) {
13+ print "\N{U+0041}";
14+ usleep($sleep_time);
15+ print "\N{U+0302}";
16+ usleep($sleep_time);
17+# print "\N{U+0300}";
18+# usleep($sleep_time);
19+}
20+
21+# U+307B + U+309A (ほ + ゚ = ぽ)
22+for ($i = 0; $i < 40; $i++) {
23+ print "\N{U+307B}";
24+ usleep($sleep_time);
25+ if ((($i+1) % 40) == 0){ sleep(1); }
26+ print "\N{U+309A}";
27+ usleep($sleep_time);
28+ if ((($i+1) % 40) == 0){ sleep(1); }
29+}
30+
31+# U+0061 U+0302 ( a+^ → â )
32+for ($i = 0; $i < 80; $i++) {
33+ print "\N{U+0061}";
34+ usleep($sleep_time);
35+ print "\N{U+0302}";
36+ usleep($sleep_time);
37+}
Show on old repository browser