From 158e40b8c2b89114ebc3b8c83266cc17ff67f614 Mon Sep 17 00:00:00 2001 From: Sadeep Madurange Date: Sat, 4 Apr 2026 17:47:19 +0800 Subject: Refactor out make_patch() from add(). --- test_vcx.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test_vcx.t') diff --git a/test_vcx.t b/test_vcx.t index e619824..2467819 100644 --- a/test_vcx.t +++ b/test_vcx.t @@ -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"); -- cgit v1.2.3