Branch: Tag:

1999-09-14

1999-09-14 22:54:52 by Fredrik Noring <noring@nocrew.org>

More String.common_prefix tests. :)

Rev: src/testsuite.in:1.195

1: - test_true([["$Id: testsuite.in,v 1.194 1999/09/14 22:31:28 noring Exp $"]]) + test_true([["$Id: testsuite.in,v 1.195 1999/09/14 22:54:52 noring Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
2601:   test_eq(String.capitalize("-"),"-")      // - common_prefix + test_eq(String.common_prefix(({ "soliloquise" })), "soliloquise")   test_eq(String.common_prefix(({ "muzzle", "muzzy" })), "muzz")   test_eq(String.common_prefix(({ "labyrinth", "diatom" })), "") -  + test_eq(String.common_prefix(({ "abc", "abc", "abc" })), "abc")   test_eq(String.common_prefix(({})), "")      // - clone