alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improving path-join.

Browse Source
This commit is contained in:
Brad Nelson
2023-05-25 19:35:13 -07:00
parent 8c31cbd694
commit 0f47287dfa
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
common/including_tests/including_tests.fs
View File

@ -53,3 +53,15 @@ e: test-needs
out: x.fs 2
out: x.fs 3
;e
e: test-path-join
also internals
s" /foo/bar/" s" /" path-join s" /" str= assert
s" /foo/bar/" s" baz" path-join s" /foo/bar/baz" str= assert
s" /foo/bar/" s" ./baz" path-join s" /foo/bar/baz" str= assert
s" /foo/bar/" s" ../baz" path-join s" /foo/baz" str= assert
s" /foo/bar/" s" baz/qux" path-join s" /foo/bar/baz/qux" str= assert
s" /foo/bar/" s" ./baz/qux" path-join s" /foo/bar/baz/qux" str= assert
s" /foo/bar/" s" " path-join s" /foo/bar/" str= assert
s" ./foo/" s" ../bar" path-join s" ./bar" str= assert
;e