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 (file)
index 0000000..819a88d
--- /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 (file)
index 0000000..7022525
--- /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 756bbebbb6126ed27276257dae4a6446e3d4504d..13f4718840df36323cbe4a07c786146492da1bd0 100644 (file)
--- 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 (file)
index 0000000..5ea2a5c
--- /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 (file)
index 0000000..4ba56f7
--- /dev/null
+++ b/t/snippets/scbb-csc.par
@@ -0,0 +1 @@
+-scbb -csc

diff --git a/t/snippets21.t b/t/snippets21.t
index 22033a5580248e87a1b73e068d39cc01a8ead2d8..03d540f030835348d48ce624f87dbc6cf8a154d5 100644 (file)
--- 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};