check toplevel is always absolute

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 4 insertions, 1 deletions

diff --git a/t/10_init.t b/t/10_init.t
index f49fd20..2009f96 100755
--- a/t/10_init.t
+++ b/t/10_init.t
@@ -10,7 +10,7 @@ use Git::Annex;
 use File::chdir;
 use File::Temp qw(tempdir);
 use t::Setup;
-use File::Spec::Functions qw(catfile);
+use File::Spec::Functions qw(catfile file_name_is_absolute);
 
 {
     my $temp = tempdir CLEANUP => 1;
@@ -19,6 +19,9 @@ use File::Spec::Functions qw(catfile);
     local $CWD = $temp;
     $annex = Git::Annex->new;
     is $annex->toplevel, $temp, "constructor sets toplevel to pwd";
+    $annex = Git::Annex->new("foo");
+    ok file_name_is_absolute $annex->toplevel,
+      "it converts a relative path to absolute";
 }
 
 {