Fix: list-tracked in subdir would print invalid paths

[code/vcsh.git] / t / 300-add.t

diff --git a/t/300-add.t b/t/300-add.t
index f16f6e1b7e2712c70bee5b85ec0a790be33e9474..4acd0a2cc64cccb34ca66cf9ae35f38c95712ca0 100644 (file)
--- a/t/300-add.t
+++ b/t/300-add.t
@@ -12,21 +12,28 @@ chdir 't/etc/' or die $!;
 
 $ENV{'HOME'} = abs_path ('.vcsh_home');
 
 
 $ENV{'HOME'} = abs_path ('.vcsh_home');
 

+chdir '.vcsh_home' or die $!;
+

 eval {
        touch 'a';
 };
 
 die $@ if $@;
 
 eval {
        touch 'a';
 };
 
 die $@ if $@;
 

-system ("./vcsh -d test1 add 'a'");
+system (".././vcsh test1 add 'a'");
+
+my $output = `.././vcsh status`;
+
+ok $output eq "test1:
+A  a

 
 

-my $output = `./vcsh status`;
+", 'Adding a file works';

 
 

-diag $output;
+$output = `.././vcsh status --terse`;

 
 ok $output eq "test1:
 
 ok $output eq "test1:

-A a
-", 'Adding a file worksl';
+A  a
+", 'Terse output works';

 
 done_testing;
 
 
 done_testing;