Refactor out make_patch() from add().

1 files changed, 3 insertions, 3 deletions

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");