fix: correct Katakana composition

tests/engine_test.c

@@ -481,6 +481,41 @@ engine_japanese_backspace_and_boundaries(struct ct *t)
 	}
 }
 
+void
+engine_katakana_sequences(struct ct *t)
+{
+	static const struct {
+		char *keys;
+		char *want;
+	} cases[] = {
+		{ "kitte", "キッテ" },
+		{ "katta", "カッタ" },
+		{ "gakkou", "ガッコウ" },
+		{ "matcha", "マッチャ" },
+		{ "xu", "ゥ" },
+		{ "vu", "ヴ" },
+	};
+	Dictreq req;
+	Str com, shown;
+	int i;
+
+	newestrequest(&req);
+	for(i = 0; i < nelem(cases); i++){
+		init();
+		im.l = getlang(LangJPK);
+		sclear(&com);
+		if(!typekeys(t, cases[i].keys, &com))
+			continue;
+		checkstr(t, cases[i].keys, "", &com);
+		shown = shownpre(&im);
+		checkstr(t, cases[i].keys, cases[i].want, &shown);
+		CT_CHECK(t, keystroke(Kret, 0, &com));
+		checkstr(t, "committed Katakana", cases[i].want, &com);
+	}
+	CT_EQ_INT(t, 0, newestrequest(&req));
+	CT_EQ_PTR(t, nil, getlang(LangJPK)->dictname);
+}
+
 void
 engine_emoji_single_candidate(struct ct *t)
 {

tests/test.h

@@ -36,6 +36,7 @@ void	engine_telex_history_bound(struct ct*);
 void	engine_japanese_readings(struct ct*);
 void	engine_japanese_candidates(struct ct*);
 void	engine_japanese_backspace_and_boundaries(struct ct*);
+void	engine_katakana_sequences(struct ct*);
 void	engine_emoji_single_candidate(struct ct*);
 void	engine_emoji_queries(struct ct*);
 void	engine_emoji_digit_aliases(struct ct*);

tests/unit_test.c

@@ -85,6 +85,7 @@ static const struct ct_test tests[] = {
 	{ "engine/japanese-readings", engine_japanese_readings },
 	{ "engine/japanese-candidates", engine_japanese_candidates },
 	{ "engine/japanese-backspace-boundaries", engine_japanese_backspace_and_boundaries },
+	{ "engine/katakana-sequences", engine_katakana_sequences },
 	{ "engine/emoji-single-candidate", engine_emoji_single_candidate },
 	{ "engine/emoji-queries", engine_emoji_queries },
 	{ "engine/emoji-digit-aliases", engine_emoji_digit_aliases },