diff options
Diffstat (limited to 't/100-clear-clears-all-branches-from-list.t')
-rw-r--r-- | t/100-clear-clears-all-branches-from-list.t | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/t/100-clear-clears-all-branches-from-list.t b/t/100-clear-clears-all-branches-from-list.t new file mode 100644 index 0000000..952d68a --- /dev/null +++ b/t/100-clear-clears-all-branches-from-list.t @@ -0,0 +1,36 @@ +#!/usr/bin/env perl -w + +use strict; + +use Test::More; + +use File::Spec; + +my $BIN = File::Spec->rel2abs('git-branch-list'); + +chdir 't-git-repo' or die $!; + +system('git branch first'); +ok !$?; + +system("$BIN save first"); +ok !$?; + +system('git branch second'); +ok !$?; + +system("$BIN save second"); +ok !$?; + +system("$BIN clear"); +ok !$?; + +my $branch_list = qx($BIN); +is $branch_list, ''; + + +# Teardown +system('git branch -d first second'); + + +done_testing; |