t/103-drop-does-not-drop-other-branches-with-similar-names.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#!/usr/bin/env perl -w

use strict;

use Test::More;

use Bin qw($BIN);

chdir 't-git-repo' or die $!;

system('git checkout -b first-similar-name');
ok !$?;

system("$BIN save");
ok !$?;

system('git checkout -b first');
ok !$?;

system("$BIN save");
ok !$?;

system("$BIN drop");
ok !$?;

my $branch_list = qx($BIN);
is $branch_list, '     1	first-similar-name
';


# Teardown
system('git checkout master');
system('git branch -d first first-similar-name');
system("$BIN clear");


done_testing;