Add another test to join_paths.t
This commit is contained in:
parent
7bef0fb700
commit
8960a4f1fb
1 changed files with 7 additions and 1 deletions
|
@ -9,7 +9,7 @@ use warnings;
|
||||||
|
|
||||||
use Stow::Util qw(join_paths);
|
use Stow::Util qw(join_paths);
|
||||||
|
|
||||||
use Test::More tests => 13;
|
use Test::More tests => 14;
|
||||||
|
|
||||||
is(
|
is(
|
||||||
join_paths('a/b/c', 'd/e/f'),
|
join_paths('a/b/c', 'd/e/f'),
|
||||||
|
@ -89,3 +89,9 @@ is(
|
||||||
'../a2'
|
'../a2'
|
||||||
=> 'drop any "./"'
|
=> 'drop any "./"'
|
||||||
);
|
);
|
||||||
|
|
||||||
|
is(
|
||||||
|
join_paths('a/b/c', '.'),
|
||||||
|
'a/b/c'
|
||||||
|
=> '. on RHS'
|
||||||
|
);
|
||||||
|
|
Loading…
Reference in a new issue