X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=ucw%2Fstring.t;h=8c1593790f6d98cdae8e817d34128938010d934d;hb=f1149d882df3b1bfd12a33cef49430f559c3e0ee;hp=6173026cfac04a0e162cc9dcefab20c24502800b;hpb=a4fe009d3366b0a3e119713b0ecc7fc0070efdfa;p=libucw.git

diff --git a/ucw/string.t b/ucw/string.t
index 6173026c..8c159379 100644
--- a/ucw/string.t
+++ b/ucw/string.t
@@ -13,3 +13,87 @@ Out:	40 08 61 01 61
 
 Run:	../obj/ucw/str-esc-t '\a\b\f\r\n\t\v\?\"'"\\'"
 Out:	07 08 0c 0d 0a 09 0b 3f 22 27
+
+Name:	prefix1
+Run:	../obj/ucw/str-fix-t p homo.sapiens.neanderthalensis homo.sap
+Out:	YES
+
+Name:	prefix2
+Run:	../obj/ucw/str-fix-t p homo.sapiens.neanderthalensis homo.sapiens.neanderthalensis
+Out:	YES
+
+Name:	prefix3
+Run:	../obj/ucw/str-fix-t p homo.sapiens.neanderthalensis ""
+Out:	YES
+
+Name:	prefix4
+Run:	../obj/ucw/str-fix-t p homo.sapiens.neanderthalensis homo.sapiens.neanderthalensisis
+Out:	NO
+
+Name:	suffix1
+Run:	../obj/ucw/str-fix-t s homo.sapiens.neanderthalensis ensis
+Out:	YES
+
+Name:	suffix2
+Run:	../obj/ucw/str-fix-t s homo.sapiens.neanderthalensis homo.sapiens.neanderthalensis
+Out:	YES
+
+Name:	suffix3
+Run:	../obj/ucw/str-fix-t s homo.sapiens.neanderthalensis ""
+Out:	YES
+
+Name:	suffix4
+Run:	../obj/ucw/str-fix-t s homo.sapiens.neanderthalensis ecce.homo.sapiens.neanderthalensis
+Out:	NO
+
+Name:	hier-prefix1
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sap
+Out:	NO
+
+Name:	hier-prefix2
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sapiens
+Out:	YES
+
+Name:	hier-prefix3
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sapiens.
+Out:	YES
+
+Name:	hier-prefix4
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sapiens.neanderthalensis
+Out:	YES
+
+Name:	hier-prefix5
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sapiens.neanderthalensis.
+Out:	NO
+
+Name:	hier-prefix6
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis ""
+Out:	YES
+
+Name:	hier-suffix1
+Run:	../obj/ucw/str-fix-t S homo.sapiens.neanderthalensis ensis
+Out:	NO
+
+Name:	hier-suffix2
+Run:	../obj/ucw/str-fix-t S homo.sapiens.neanderthalensis sapiens.neanderthalensis
+Out:	YES
+
+Name:	hier-suffix3
+Run:	../obj/ucw/str-fix-t S homo.sapiens.neanderthalensis .sapiens.neanderthalensis
+Out:	YES
+
+Name:	hier-suffix4
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis homo.sapiens.neanderthalensis
+Out:	YES
+
+Name:	hier-suffix5
+Run:	../obj/ucw/str-fix-t P homo.sapiens.neanderthalensis .homo.sapiens.neanderthalensis
+Out:	NO
+
+Name:	hier-suffix6
+Run:	../obj/ucw/str-fix-t S homo.sapiens.neanderthalensis ""
+Out:	YES
+
+Name:	hier-suffix7
+Run:	../obj/ucw/str-fix-t S homo.sapiens.neanderthalensis ecce.homo.sapiens.neanderthalensis
+Out:	NO