From 479aa7c70cebcda16181291503b0e919148df70b Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 15 Apr 2022 14:24:25 -0700 Subject: [PATCH] add test case --- t/snippets/expect/git93.def | 21 +++++++++ t/snippets/expect/git93.git93 | 21 +++++++++ t/snippets/git93.in | 21 +++++++++ t/snippets/git93.par | 1 + t/snippets/packing_list.txt | 6 ++- t/snippets26.t | 85 +++++++++++++++++++++++++++++++++++ 6 files changed, 153 insertions(+), 2 deletions(-) create mode 100644 t/snippets/expect/git93.def create mode 100644 t/snippets/expect/git93.git93 create mode 100644 t/snippets/git93.in create mode 100644 t/snippets/git93.par diff --git a/t/snippets/expect/git93.def b/t/snippets/expect/git93.def new file mode 100644 index 00000000..46babc22 --- /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; +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 index 00000000..3db7608d --- /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; +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 index 00000000..af274c4d --- /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; +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 index 00000000..17742179 --- /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 730cc34f..fa869482 100644 --- 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 3a50a207..88aa7523 100644 --- 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; +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; +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; +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}; -- 2.39.5