diff options
Diffstat (limited to 'test_vcx.t')
| -rw-r--r-- | test_vcx.t | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -26,7 +26,7 @@ chdir($sandbox) or die "Cant enter sandbox: $!"; my $cmd = File::Spec->catfile($orig_dir, "vcx"); # Test 'init' -ok(system("perl $cmd init") == 0, "Init command ran successfully"); +ok(system("perl $cmd init > /dev/null") == 0, "Init command ran successfully"); ok(-d ROOT, "ROOT directory created"); ok(-e HEAD, "Head file created"); ok(-d OBJ_DIR, "OBJ_DIR directory created"); @@ -110,8 +110,8 @@ symlink("link_a", "link_b"); system("perl $cmd add link_b > /dev/null"); system("perl $cmd commit -m 'Double link' > /dev/null"); -my $head = read_file(HEAD); -my ($tree_ptr) = bsd_glob(File::Spec->catfile(REV_DIR, $head, "tree-*")); +$head = read_file(HEAD); +($tree_ptr) = bsd_glob(File::Spec->catfile(REV_DIR, $head, "tree-*")); my $staged_link = File::Spec->catfile(OBJ_DIR, $tree_ptr =~ s/.*tree-//r, "link_b"); is(readlink($staged_link), "link_a", "Symlink-to-symlink preserved literal target"); |