add test case

diff --git a/t/snippets/expect/git93.def b/t/snippets/expect/git93.def
new file mode 100644 (file)
index 0000000..46babc2
--- /dev/null
+++ b/t/snippets/expect/git93.def
@@ -0,0 +1,21 @@
+use Cwd                       qw[cwd];
+use Carp                      qw(carp);
+use IPC::Cmd                  qw{can_run run QUOTE};
+use File::Path                qw/mkpath/;
+use File::Temp                qw[tempdir];
+use Params::Check             qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue )     => 'blue' ],
+    [ qw( brown blue blue blue )    => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword       { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);

diff --git a/t/snippets/expect/git93.git93 b/t/snippets/expect/git93.git93
new file mode 100644 (file)
index 0000000..3db7608
--- /dev/null
+++ b/t/snippets/expect/git93.git93
@@ -0,0 +1,21 @@
+use Cwd qw[cwd];
+use Carp qw(carp);
+use IPC::Cmd qw{can_run run QUOTE};
+use File::Path qw/mkpath/;
+use File::Temp qw[tempdir];
+use Params::Check qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue )     => 'blue' ],
+    [ qw( brown blue blue blue )    => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword       { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);

diff --git a/t/snippets/git93.in b/t/snippets/git93.in
new file mode 100644 (file)
index 0000000..af274c4
--- /dev/null
+++ b/t/snippets/git93.in
@@ -0,0 +1,21 @@
+use Cwd qw[cwd];
+use Carp qw(carp);
+use IPC::Cmd qw{can_run run QUOTE};
+use File::Path qw/mkpath/;
+use File::Temp qw[tempdir];
+use Params::Check qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue ) => 'blue' ],
+    [ qw( brown blue blue blue ) => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);

diff --git a/t/snippets/git93.par b/t/snippets/git93.par
new file mode 100644 (file)
index 0000000..1774217
--- /dev/null
+++ b/t/snippets/git93.par
@@ -0,0 +1 @@
+-vxl='q'

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 730cc34fe2dfe0c5c4741cd215eda4fb82b18d08..fa8694824c39340c9d5bcd69927c1df72d750edb 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -349,6 +349,8 @@
 ../snippets26.t        bal.bal2
 ../snippets26.t        bal.def
 ../snippets26.t        lpxl.lpxl6
+../snippets26.t        c133.c133
+../snippets26.t        c133.def
 ../snippets3.t ce_wn1.ce_wn
 ../snippets3.t ce_wn1.def
 ../snippets3.t colin.colin
@@ -489,5 +491,5 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets26.t        c133.c133
-../snippets26.t        c133.def
+../snippets26.t        git93.def
+../snippets26.t        git93.git93

diff --git a/t/snippets26.t b/t/snippets26.t
index 3a50a207f7a6be4cd7f0e8b08d4632d2700e71e7..88aa7523672505090151f95f9ef3f6aed7a17902 100644 (file)
--- a/t/snippets26.t
+++ b/t/snippets26.t
@@ -6,6 +6,8 @@
 #3 lpxl.lpxl6
 #4 c133.c133
 #5 c133.def
+#6 git93.def
+#7 git93.git93
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -26,6 +28,9 @@ BEGIN {
         'bal2'  => "-bal=2",
         'c133'  => "-boc",
         'def'   => "",
+        'git93' => <<'----------',
+-vxl='q'
+----------
         'lpxl6' => <<'----------',
 # equivalent to -lpxl='{ [ F(2'
 -lp -lpil='f(2'
@@ -65,6 +70,30 @@ return
   $x * sin($a) + $y * cos($a);
 ----------
 
+        'git93' => <<'----------',
+use Cwd qw[cwd];
+use Carp qw(carp);
+use IPC::Cmd qw{can_run run QUOTE};
+use File::Path qw/mkpath/;
+use File::Temp qw[tempdir];
+use Params::Check qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue ) => 'blue' ],
+    [ qw( brown blue blue blue ) => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);
+----------
+
         'lpxl' => <<'----------',
 # simple function call
 my $loanlength = getLoanLength(
@@ -268,6 +297,62 @@ return
   $x * sin($a) + $y * cos($a);
 #5...........
         },
+
+        'git93.def' => {
+            source => "git93",
+            params => "def",
+            expect => <<'#6...........',
+use Cwd                       qw[cwd];
+use Carp                      qw(carp);
+use IPC::Cmd                  qw{can_run run QUOTE};
+use File::Path                qw/mkpath/;
+use File::Temp                qw[tempdir];
+use Params::Check             qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue )     => 'blue' ],
+    [ qw( brown blue blue blue )    => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword       { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);
+#6...........
+        },
+
+        'git93.git93' => {
+            source => "git93",
+            params => "git93",
+            expect => <<'#7...........',
+use Cwd qw[cwd];
+use Carp qw(carp);
+use IPC::Cmd qw{can_run run QUOTE};
+use File::Path qw/mkpath/;
+use File::Temp qw[tempdir];
+use Params::Check qw<check>;
+use Module::Load::Conditional qw#can_load#;
+use Locale::Maketext::Simple Style => 'gettext';    # does not align
+
+# do not align on these 'q' token types - not use statements...
+my $gene_color_sets = [
+    [ qw( blue blue blue blue )     => 'blue' ],
+    [ qw( brown blue blue blue )    => 'brown' ],
+    [ qw( brown brown green green ) => 'brown' ],
+];
+
+sub quux : PluginKeyword       { 'quux' }
+sub qaax : PluginKeyword(qiix) { die "unimplemented" }
+
+use vars qw($curdir);
+no strict qw(vars);
+#7...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};