rise to top of working tree on Git::Annex initialisation

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

1 files changed, 6 insertions, 0 deletions

diff --git a/t/10_init.t b/t/10_init.t
index 5d72048..b8f67fa 100755
--- a/t/10_init.t
+++ b/t/10_init.t
@@ -45,4 +45,10 @@ with_temp_annexes {
       "Git::Repository has correct toplevel";
 };
 
+with_temp_annexes {
+    my $source1_dir = catfile shift, "source1";
+    my $annex = Git::Annex->new(catfile $source1_dir, "foo");
+    is $annex->toplevel, $source1_dir, "it rises to top of working tree";
+};
+
 done_testing;