/test/lib/string/test_fixed_substring.e

 1class TEST_FIXED_SUBSTRING
 2
 3insert
 4   EIFFELTEST_TOOLS
 5   STRING_HANDLER
 6
 7create {}
 8   make
 9
10feature {ANY}
11   make
12      do
13         fixed := source.intern
14         substring := fixed.substring(8, 13)
15         assert("string".is_equal(substring))
16         subsubstring := substring.substring(1, 3)
17         assert("str".is_equal(subsubstring))
18         subsubstring.unshare
19         assert("string".is_equal(substring))
20         assert("str".is_equal(subsubstring))
21      end
22
23   source: STRING "Source string...."
24   fixed: FIXED_STRING
25   substring: FIXED_STRING
26   subsubstring: FIXED_STRING
27
28end -- class TEST_FIXED_SUBSTRING