From: Steve Hancock Date: Sat, 5 Sep 2020 04:00:34 +0000 (-0700) Subject: add test case for -scbb -csc combination X-Git-Tag: 20200907~6 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=89628f95742397bd0f46cccb855860d39c07e806;p=perltidy.git add test case for -scbb -csc combination --- diff --git a/t/snippets/expect/scbb-csc.def b/t/snippets/expect/scbb-csc.def new file mode 100644 index 00000000..819a88d4 --- /dev/null +++ b/t/snippets/expect/scbb-csc.def @@ -0,0 +1,32 @@ +sub perlmod_install_advice { + my (@mod) = @_; + if ($auto_install_cpan) { + require AutoInstall::Tk; + my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); + if ( $r > 0 ) { + for my $mod (@mod) { + warn "Re-require $mod...\n"; + eval "require $mod"; + die __LINE__ . ": $@" if $@; + } + } + } + else { + my $shell = ( $os eq 'win' ? M "Eingabeaufforderung" : M "Shell" ); + status_message( + Mfmt( + ( + @mod > 1 + ? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" + : "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" + ), + $shell + ) + . " perl -MCPAN -e \"install " + . join( ", ", @mod ) . "\"\n" + . "aus dem Internet geholt und installiert werden.\n", + "err" + ); + } +} + diff --git a/t/snippets/expect/scbb-csc.scbb-csc b/t/snippets/expect/scbb-csc.scbb-csc new file mode 100644 index 00000000..7022525f --- /dev/null +++ b/t/snippets/expect/scbb-csc.scbb-csc @@ -0,0 +1,32 @@ +sub perlmod_install_advice { + my (@mod) = @_; + if ($auto_install_cpan) { + require AutoInstall::Tk; + my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); + if ( $r > 0 ) { + for my $mod (@mod) { + warn "Re-require $mod...\n"; + eval "require $mod"; + die __LINE__ . ": $@" if $@; + } + } ## end if ( $r > 0 ) + } ## end if ($auto_install_cpan) + else { + my $shell = ( $os eq 'win' ? M "Eingabeaufforderung" : M "Shell" ); + status_message( + Mfmt( + ( + @mod > 1 + ? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" + : "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" + ), + $shell + ) + . " perl -MCPAN -e \"install " + . join( ", ", @mod ) . "\"\n" + . "aus dem Internet geholt und installiert werden.\n", + "err" + ); + } ## end else [ if ($auto_install_cpan)] +} ## end sub perlmod_install_advice + diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt index 756bbebb..13f47188 100644 --- a/t/snippets/packing_list.txt +++ b/t/snippets/packing_list.txt @@ -407,3 +407,5 @@ ../snippets9.t rt98902.def ../snippets9.t rt98902.rt98902 ../snippets9.t rt99961.def +../snippets21.t scbb-csc.def +../snippets21.t scbb-csc.scbb-csc diff --git a/t/snippets/scbb-csc.in b/t/snippets/scbb-csc.in new file mode 100644 index 00000000..5ea2a5c8 --- /dev/null +++ b/t/snippets/scbb-csc.in @@ -0,0 +1,33 @@ +sub perlmod_install_advice +{ +my(@mod) = @_; +if ($auto_install_cpan) { +require AutoInstall::Tk; +my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); +if ($r > 0) { +for my $mod (@mod) { +warn "Re-require $mod...\n"; +eval "require $mod"; +die __LINE__ . ": $@" if $@; +}} +} +else { +my $shell = ($os eq 'win' ? M"Eingabeaufforderung" : M"Shell"); +status_message +( +Mfmt( +( +@mod > 1 +? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" +: "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" +), +$shell +) +. +" perl -MCPAN -e \"install " . join(", ", @mod) . "\"\n" . +"aus dem Internet geholt und installiert werden.\n", +"err" +); +} +} + diff --git a/t/snippets/scbb-csc.par b/t/snippets/scbb-csc.par new file mode 100644 index 00000000..4ba56f77 --- /dev/null +++ b/t/snippets/scbb-csc.par @@ -0,0 +1 @@ +-scbb -csc diff --git a/t/snippets21.t b/t/snippets21.t index 22033a55..03d540f0 100644 --- a/t/snippets21.t +++ b/t/snippets21.t @@ -17,6 +17,8 @@ #14 nib.def #15 nib.nib1 #16 nib.nib2 +#17 scbb-csc.def +#18 scbb-csc.scbb-csc # To locate test #13 you can search for its name or the string '#13' @@ -49,6 +51,7 @@ BEGIN { # only the method should get a csc: -csc -cscl=sub -sal=method ---------- + 'scbb-csc' => "-scbb -csc", 'sot' => "-sot -sct", 'switch_plain' => "-nola", }; @@ -205,6 +208,42 @@ method sum_radlinks { } } } +---------- + + 'scbb-csc' => <<'----------', +sub perlmod_install_advice +{ +my(@mod) = @_; +if ($auto_install_cpan) { +require AutoInstall::Tk; +my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); +if ($r > 0) { +for my $mod (@mod) { +warn "Re-require $mod...\n"; +eval "require $mod"; +die __LINE__ . ": $@" if $@; +}} +} +else { +my $shell = ($os eq 'win' ? M"Eingabeaufforderung" : M"Shell"); +status_message +( +Mfmt( +( +@mod > 1 +? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" +: "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" +), +$shell +) +. +" perl -MCPAN -e \"install " . join(", ", @mod) . "\"\n" . +"aus dem Internet geholt und installiert werden.\n", +"err" +); +} +} + ---------- 'sot' => <<'----------', @@ -654,6 +693,84 @@ method sum_radlinks { #16........... }, + + 'scbb-csc.def' => { + source => "scbb-csc", + params => "def", + expect => <<'#17...........', +sub perlmod_install_advice { + my (@mod) = @_; + if ($auto_install_cpan) { + require AutoInstall::Tk; + my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); + if ( $r > 0 ) { + for my $mod (@mod) { + warn "Re-require $mod...\n"; + eval "require $mod"; + die __LINE__ . ": $@" if $@; + } + } + } + else { + my $shell = ( $os eq 'win' ? M "Eingabeaufforderung" : M "Shell" ); + status_message( + Mfmt( + ( + @mod > 1 + ? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" + : "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" + ), + $shell + ) + . " perl -MCPAN -e \"install " + . join( ", ", @mod ) . "\"\n" + . "aus dem Internet geholt und installiert werden.\n", + "err" + ); + } +} + +#17........... + }, + + 'scbb-csc.scbb-csc' => { + source => "scbb-csc", + params => "scbb-csc", + expect => <<'#18...........', +sub perlmod_install_advice { + my (@mod) = @_; + if ($auto_install_cpan) { + require AutoInstall::Tk; + my $r = AutoInstall::Tk::do_autoinstall_tk(@mod); + if ( $r > 0 ) { + for my $mod (@mod) { + warn "Re-require $mod...\n"; + eval "require $mod"; + die __LINE__ . ": $@" if $@; + } + } ## end if ( $r > 0 ) + } ## end if ($auto_install_cpan) + else { + my $shell = ( $os eq 'win' ? M "Eingabeaufforderung" : M "Shell" ); + status_message( + Mfmt( + ( + @mod > 1 + ? "Die fehlenden Perl-Module können aus der %s mit dem Kommando\n" + : "Das fehlende Perl-Modul kann aus der %s mit dem Kommando\n" + ), + $shell + ) + . " perl -MCPAN -e \"install " + . join( ", ", @mod ) . "\"\n" + . "aus dem Internet geholt und installiert werden.\n", + "err" + ); + } ## end else [ if ($auto_install_cpan)] +} ## end sub perlmod_install_advice + +#18........... + }, }; my $ntests = 0 + keys %{$rtests};