Add another test to join_paths.t

This commit is contained in:
Adam Spiers 2011-11-22 14:29:52 +00:00
parent 7bef0fb700
commit 8960a4f1fb

View file

@ -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'
);