add git #51 to test cases

diff --git a/t/snippets/expect/git51.def b/t/snippets/expect/git51.def
new file mode 100644 (file)
index 0000000..cb9a77b
--- /dev/null
+++ b/t/snippets/expect/git51.def
@@ -0,0 +1,7 @@
+Type::Libraries->setup_class(
+    __PACKAGE__,
+    qw(
+      Types::Standard
+      Types::Common::Numeric
+    ),    # <--- brace here
+);

diff --git a/t/snippets/expect/git51.git51 b/t/snippets/expect/git51.git51
new file mode 100644 (file)
index 0000000..eaf4161
--- /dev/null
+++ b/t/snippets/expect/git51.git51
@@ -0,0 +1,7 @@
+Type::Libraries->setup_class(
+       __PACKAGE__,
+       qw(
+               Types::Standard
+               Types::Common::Numeric
+       ),    # <--- brace here
+);

diff --git a/t/snippets/git51.in b/t/snippets/git51.in
new file mode 100644 (file)
index 0000000..9ad34ba
--- /dev/null
+++ b/t/snippets/git51.in
@@ -0,0 +1,7 @@
+Type::Libraries->setup_class(
+       __PACKAGE__,
+       qw(
+               Types::Standard
+               Types::Common::Numeric
+               ), # <--- brace here
+);

diff --git a/t/snippets/git51.par b/t/snippets/git51.par
new file mode 100644 (file)
index 0000000..539b3e6
--- /dev/null
+++ b/t/snippets/git51.par
@@ -0,0 +1,18 @@
+--maximum-line-length=120
+--converge
+--tabs
+--entab-leading-whitespace=4
+--continuation-indentation=4
+--extended-continuation-indentation
+--no-delete-old-newlines
+--no-outdent-long-lines
+--no-outdent-labels
+--novalign
+--no-logical-padding
+--opening-sub-brace-on-new-line
+--square-bracket-tightness=2
+--paren-tightness=2
+--brace-tightness=2
+--opening-token-right
+
+-sal='first any sum sum0 reduce'

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index d44b8b459c7d19bda9d5a6b1e2f6176dbfcdc565..5ea6f4e19c1a02ad1f57d36f092d7e9ae558cbc2 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -464,3 +464,5 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
+../snippets24.t        git51.def
+../snippets24.t        git51.git51

diff --git a/t/snippets24.t b/t/snippets24.t
index aa02151e4db9d301f45c0bf8e1b2346afc31c53d..92aa708986c1c700f47d95d14ddfe6c9fce50f7c 100644 (file)
--- a/t/snippets24.t
+++ b/t/snippets24.t
@@ -17,6 +17,8 @@
 #14 rt136417.rt136417
 #15 numbers.def
 #16 code_skipping.def
+#17 git51.def
+#18 git51.git51
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -37,6 +39,26 @@ BEGIN {
         'def'   => "",
         'fpva1' => "-sfp",
         'fpva2' => "-sfp -nfpva",
+        'git51' => <<'----------',
+--maximum-line-length=120
+--converge
+--tabs
+--entab-leading-whitespace=4
+--continuation-indentation=4
+--extended-continuation-indentation
+--no-delete-old-newlines
+--no-outdent-long-lines
+--no-outdent-labels
+--novalign
+--no-logical-padding
+--opening-sub-brace-on-new-line
+--square-bracket-tightness=2
+--paren-tightness=2
+--brace-tightness=2
+--opening-token-right
+
+-sal='first any sum sum0 reduce'
+----------
         'git54' => "-bbp=3 -bbpi=2 -ci=4 -lp",
         'lpxl1' => "-lp",
         'lpxl3' => <<'----------',
@@ -96,6 +118,16 @@ Coro::AnyEvent::sleep( 3, 4 );
 use Carp ();
 use File::Spec ();
 use File::Path ();
+----------
+
+        'git51' => <<'----------',
+Type::Libraries->setup_class(
+       __PACKAGE__,
+       qw(
+               Types::Standard
+               Types::Common::Numeric
+               ), # <--- brace here
+);
 ----------
 
         'git54' => <<'----------',
@@ -864,6 +896,34 @@ my $self    = shift;
 my $cloning = shift;
 #16...........
         },
+
+        'git51.def' => {
+            source => "git51",
+            params => "def",
+            expect => <<'#17...........',
+Type::Libraries->setup_class(
+    __PACKAGE__,
+    qw(
+      Types::Standard
+      Types::Common::Numeric
+    ),    # <--- brace here
+);
+#17...........
+        },
+
+        'git51.git51' => {
+            source => "git51",
+            params => "git51",
+            expect => <<'#18...........',
+Type::Libraries->setup_class(
+       __PACKAGE__,
+       qw(
+               Types::Standard
+               Types::Common::Numeric
+       ),    # <--- brace here
+);
+#18...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};