Anubis / Anubis

string.unit_test.anubis 751 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 
read tools/basis.anubis
read system/types.anubis
read system/string.anubis
read tools/findstring.anubis

read tools/unit_test.anubis


define One
  find_eol_test
  (
    UnitTestContext ut
  )=
  with source   = "Text with EOL here.\nThis is a new line.\nEnd.",
       expected = constant_byte_array(3,0),
  assertIsSuccess(ut, find("\n", source, 0), 19, "Find(\"\\n\")").
  assertIsSuccess(ut, find("\n", source, 25), 39, "Find(\"\\n\")").
  assertIsFailure(ut, find("\n", source, 40), "Find(\"\\n\")").
  assertIsFailure(ut, find("\n", "No EOL into this string."), "Find(\"\\n\")").


  
public define UnitTestSuite make_string_test_suite 
  =
  ut_suite("system.string",
    [
      ut_fixture("Finding EOL into string", find_eol_test),
    ]).