Branch: Tag:

2004-05-01

2004-05-01 14:51:59 by Martin Stjernholm <mast@lysator.liu.se>

Added some combine_path tests that didn't work in 7.4.

Rev: src/testsuite.in:1.724

1: - test_true([["$Id: testsuite.in,v 1.723 2004/05/01 12:19:40 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.724 2004/05/01 14:51:59 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
8526:   test_eq([[combine_path("/","/fo\1111/bar/ga\11111zonk/../../")]],"/fo\1111/")   test_eq([[combine_path("/","/fo\1111/bar/gazonk/../../")]],"/fo\1111/")    + test_eq([[combine_path("foo", "../bar")]],"bar") + test_eq([[combine_path("foo/", "../bar")]],"bar") + test_eq([[combine_path("foo/", "../bar/")]],"bar/") + test_eq([[combine_path("foo/.", "../bar")]],"bar") + test_eq([[combine_path("foo", "..")]],".") + test_eq([[combine_path("foo/", "..")]],".") + test_eq([[combine_path("foo/.", "..")]],".") + test_eq([[combine_path(".", "bar")]],"bar") + test_eq([[combine_path("./", "bar")]],"bar") + test_eq([[combine_path(".", "../bar")]],"../bar") + test_eq([[combine_path("./", "../bar")]],"../bar") +    // - combine_path_nt   test_eq([[combine_path_nt("/","/fo\1111/bar/gazonk/../../")]],"/fo\1111/")   test_eq([[combine_path_nt("a:/","/fo\1111/bar/gazonk/../../")]],"a:/fo\1111/")