add test case for fix git #45

diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 3dc8b32e7b8bb2415b65a74109001950a7818d65..368a9a4ee9136cf93463a1cdad042243c153255c 100644 (file)
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,11 @@
 
 =over 4
 
+=item B<fix issue git #45, -wn and -vtc=n now work together>
+
+When -wn was set, the -vtc=n flag was being ignored.  This was a simple fix
+made 5 Nov 2020 in 'fix issue git #45, -wn and -vtc=n now work together', 1fbc381.
+
 =item B<implement request RT #133649, added parameters -kbb=s and -kba=s>
 
 These parameters request that old breakpoints be kept before or after

diff --git a/t/snippets/expect/git45.def b/t/snippets/expect/git45.def
new file mode 100644 (file)
index 0000000..c8261fe
--- /dev/null
+++ b/t/snippets/expect/git45.def
@@ -0,0 +1,22 @@
+# git#45 -vtc=n and -wn were not working together
+if (
+    $self->_add_fqdn_host(
+        name  => $name,
+        realm => $realm
+    )
+  )
+{
+    ...;
+}
+
+# do not stack )->pack(
+my $hlist = $control::control->Scrolled(
+    'HList',
+    drawbranch  => 1,
+    width       => 20,
+    -scrollbars => 'w'
+)->pack(
+    -side   => 'bottom',
+    -expand => 1
+);
+

diff --git a/t/snippets/expect/git45.git45 b/t/snippets/expect/git45.git45
new file mode 100644 (file)
index 0000000..a6ff842
--- /dev/null
+++ b/t/snippets/expect/git45.git45
@@ -0,0 +1,18 @@
+# git#45 -vtc=n and -wn were not working together
+if ( $self->_add_fqdn_host(
+    name  => $name,
+    realm => $realm ) )
+{
+    ...;
+}
+
+# do not stack )->pack(
+my $hlist = $control::control->Scrolled(
+    'HList',
+    drawbranch  => 1,
+    width       => 20,
+    -scrollbars => 'w'
+)->pack(
+    -side   => 'bottom',
+    -expand => 1 );
+

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index e9e5a49e1bc3d038787900156e37c0c8a58811b3..a662e85a9d9a1476aebf5ca9369b49d88cd436e1 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -284,6 +284,8 @@
 ../snippets22.t        mangle4.mangle
 ../snippets22.t        extrude5.def
 ../snippets22.t        extrude5.extrude
+../snippets22.t        kba1.def
+../snippets22.t        kba1.kba1
 ../snippets3.t ce_wn1.ce_wn
 ../snippets3.t ce_wn1.def
 ../snippets3.t colin.colin
@@ -424,5 +426,5 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets22.t        kba1.def
-../snippets22.t        kba1.kba1
+../snippets22.t        git45.def
+../snippets22.t        git45.git45

diff --git a/t/snippets22.t b/t/snippets22.t
index 3fa7681caedde4d323aa450da0473f7a467548bd..73414883fdc759e172c6791b6a403944be3fc3fe 100644 (file)
--- a/t/snippets22.t
+++ b/t/snippets22.t
@@ -17,6 +17,8 @@
 #14 extrude5.extrude
 #15 kba1.def
 #16 kba1.kba1
+#17 git45.def
+#18 git45.git45
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -43,6 +45,7 @@ BEGIN {
 ----------
         'def'       => "",
         'extrude'   => "--extrude",
+        'git45'     => "-vtc=1 -wn",
         'here_long' => "-l=33",
         'kba1'      => <<'----------',
 -kbb='=> ,' -kba='=>'
@@ -121,6 +124,31 @@ catch {
         'extrude5' => <<'----------',
 use perl6-alpha;
 $var{-y} = 1;
+----------
+
+        'git45' => <<'----------',
+# git#45 -vtc=n and -wn were not working together
+if (
+    $self->_add_fqdn_host(
+        name  => $name,
+        realm => $realm
+    )
+  )
+{
+    ...;
+}
+
+# do not stack )->pack(
+my $hlist = $control::control->Scrolled(
+    'HList',
+    drawbranch  => 1,
+    width       => 20,
+    -scrollbars => 'w'
+)->pack(
+    -side   => 'bottom',
+    -expand => 1
+);
+
 ----------
 
         'here_long' => <<'----------',
@@ -569,6 +597,60 @@ method 'foo2'  =>
 
 #16...........
         },
+
+        'git45.def' => {
+            source => "git45",
+            params => "def",
+            expect => <<'#17...........',
+# git#45 -vtc=n and -wn were not working together
+if (
+    $self->_add_fqdn_host(
+        name  => $name,
+        realm => $realm
+    )
+  )
+{
+    ...;
+}
+
+# do not stack )->pack(
+my $hlist = $control::control->Scrolled(
+    'HList',
+    drawbranch  => 1,
+    width       => 20,
+    -scrollbars => 'w'
+)->pack(
+    -side   => 'bottom',
+    -expand => 1
+);
+
+#17...........
+        },
+
+        'git45.git45' => {
+            source => "git45",
+            params => "git45",
+            expect => <<'#18...........',
+# git#45 -vtc=n and -wn were not working together
+if ( $self->_add_fqdn_host(
+    name  => $name,
+    realm => $realm ) )
+{
+    ...;
+}
+
+# do not stack )->pack(
+my $hlist = $control::control->Scrolled(
+    'HList',
+    drawbranch  => 1,
+    width       => 20,
+    -scrollbars => 'w'
+)->pack(
+    -side   => 'bottom',
+    -expand => 1 );
+
+#18...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};