From 8960a4f1fbdbb39efad4d53f2a0ffdcda5ecfc1c Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Tue, 22 Nov 2011 14:29:52 +0000
Subject: [PATCH] Add another test to join_paths.t

---
 t/join_paths.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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