pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2002-07-29
2002-07-29 14:34:34 by Martin Nilsson <mani@lysator.liu.se>
acc75e5a11e8b86d58fa6dc44032272812aa0e4c (
25
lines) (+
24
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Tests for dirname and basename
Rev: src/testsuite.in:1.525
1:
-
test_true([["$Id: testsuite.in,v 1.
524
2002/07/
27
20
:
41
:
45
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
525
2002/07/
29
14
:
34
:
34
nilsson
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
9113:
test_eval_error(return clone(class c{int i;void foo(){ destruct(this_object());i=0;return i;}})->foo())
+
// master defined functions
+
+
test_eq(dirname("/a/b/"),"/a/b")
+
test_eq(dirname("/a/b"),"/a")
+
test_eq(dirname("/a/"),"/a")
+
test_eq(dirname("/a"),"/")
+
test_eq(dirname("/"),"/")
+
test_eq(dirname(""),"")
+
test_eq(dirname("a/b/"),"a/b")
+
test_eq(dirname("a/b"),"a")
+
test_eq(dirname("a/"),"a")
+
test_eq(dirname("a"),"")
+
+
test_eq(basename("/a/b"),"b")
+
test_eq(basename("/a/"),"")
+
test_eq(basename("/a"),"a")
+
test_eq(basename("/"),"")
+
test_eq(basename("a/b"),"b")
+
test_eq(basename("a/"),"")
+
test_eq(basename("a"),"a")
+
test_eq(basename(""),"")
+
// Pike modules // - this failed in Calendar.Timezone