/test/lib/string/test_fixed_substring.e

http://github.com/tybor/Liberty · Specman e · 28 lines · 23 code · 5 blank · 0 comment · 0 complexity · d053b7d8bb4d9dd1224efd7e43087a7d MD5 · raw file 

    

  1. class TEST_FIXED_SUBSTRING
    2. 

  2. 

  3. insert
    4. 

  4.    EIFFELTEST_TOOLS
    5. 

  5.    STRING_HANDLER
    6. 

  6. 

  7. create {}
    8. 

  8.    make
    9. 

  9. 

  10. feature {ANY}
    11. 

  11.    make
    12. 

  12.       do
    13. 

  13.          fixed := source.intern
    14. 

  14.          substring := fixed.substring(8, 13)
    15. 

  15.          assert("string".is_equal(substring))
    16. 

  16.          subsubstring := substring.substring(1, 3)
    17. 

  17.          assert("str".is_equal(subsubstring))
    18. 

  18.          subsubstring.unshare
    19. 

  19.          assert("string".is_equal(substring))
    20. 

  20.          assert("str".is_equal(subsubstring))
    21. 

  21.       end
    22. 

  22. 

  23.    source: STRING "Source string...."
    24. 

  24.    fixed: FIXED_STRING
    25. 

  25.    substring: FIXED_STRING
    26. 

  26.    subsubstring: FIXED_STRING
    27. 

  27. 

  28. end -- class TEST_FIXED_SUBSTRING
    29.