X-Git-Url: https://git.madduck.net/code/vcsh.git/blobdiff_plain/9bb603de8a2a49172513c41ccc8fb4309f90bb95..8f4180366d4a5541f7042d24a1fc424b26e41bb9:/t/950-delete.t

diff --git a/t/950-delete.t b/t/950-delete.t
new file mode 100644
index 0000000..cd07871
--- /dev/null
+++ b/t/950-delete.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Cwd 'abs_path';
+use Test::Most;
+
+chdir 't/etc/' or die $!;
+
+$ENV{'HOME'} = abs_path ('.vcsh_home');
+
+system ("echo 'Yes, do as I say' | ./vcsh delete test1");
+
+my $output = `./vcsh status`;
+
+ok $output eq "", 'No repos set up anymore.';
+
+done_testing;