Branch: Tag:

1999-09-14

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

Added function String.common_prefix.

Rev: lib/modules/String.pmod:1.8
Rev: src/testsuite.in:1.194
Rev: tutorial/tutorial.wmml:1.151

1: - test_true([["$Id: testsuite.in,v 1.193 1999/09/11 08:15:58 hubbe Exp $"]]) + test_true([["$Id: testsuite.in,v 1.194 1999/09/14 22:31:28 noring Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
2600:   test_eq(String.capitalize("FooBar"),"FooBar")   test_eq(String.capitalize("-"),"-")    + // - common_prefix + test_eq(String.common_prefix(({ "muzzle", "muzzy" })), "muzz") + test_eq(String.common_prefix(({ "labyrinth", "diatom" })), "") + test_eq(String.common_prefix(({})), "") +    // - clone   // clone is already tested a lot by this script   test_true(objectp(clone(compile_string("int foo() { return 17; }"))))