diff --git a/t/join_paths.t b/t/join_paths.t
index 37157a5..585cae9 100755
--- a/t/join_paths.t
+++ b/t/join_paths.t
@@ -9,7 +9,7 @@ use warnings;
 
 use Stow::Util qw(join_paths);
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 
 is(
     join_paths('a/b/c', 'd/e/f'),
@@ -89,3 +89,9 @@ is(
     '../a2'
     => 'drop any "./"'
 );
+
+is(
+    join_paths('a/b/c', '.'),
+    'a/b/c'
+    => '. on RHS'
+);