components/perl/pmtools/patches/03-test-blib-script.patch

   1 We need to test scripts with mangled Perl shebang.
   2
   3 --- pmtools-2.2.0/t/basepods.t.orig
   4 +++ pmtools-2.2.0/t/basepods.t
   5 @@ -12,7 +12,7 @@
   6  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
   7
   8  eval {
   9 -    $output = `bin/basepods 2>&1`;
  10 +    $output = `blib/script/basepods 2>&1`;
  11  };
  12
  13  is($?,        0,               "basepods runs");
  14 --- pmtools-2.2.0/t/faqpods.t.orig
  15 +++ pmtools-2.2.0/t/faqpods.t
  16 @@ -12,7 +12,7 @@
  17  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  18
  19  eval {
  20 -    $output = `bin/faqpods 2>&1`;
  21 +    $output = `blib/script/faqpods 2>&1`;
  22  };
  23
  24  is($?,        0,                    "faqpods runs");
  25 --- pmtools-2.2.0/t/modpods.t.orig
  26 +++ pmtools-2.2.0/t/modpods.t
  27 @@ -12,7 +12,7 @@
  28  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  29
  30  eval {
  31 -    $output = `bin/modpods 2>&1`;
  32 +    $output = `blib/script/modpods 2>&1`;
  33  };
  34
  35  is($?,        0,                  "modpods runs");
  36 --- pmtools-2.2.0/t/pfcat.t.orig
  37 +++ pmtools-2.2.0/t/pfcat.t
  38 @@ -12,7 +12,7 @@
  39  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  40
  41  eval {
  42 -    $output = `bin/pfcat seek 2>&1`;
  43 +    $output = `blib/script/pfcat seek 2>&1`;
  44  };
  45
  46  is($?,        0,                                                       "pfcat runs");
  47 --- pmtools-2.2.0/t/plxload.t.orig
  48 +++ pmtools-2.2.0/t/plxload.t
  49 @@ -12,7 +12,7 @@
  50  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  51
  52  eval {
  53 -    $output = `bin/plxload bin/plxload 2>&1`;
  54 +    $output = `blib/script/plxload blib/script/plxload 2>&1`;
  55  };
  56
  57  is($output, "", "modules loaded");
  58 --- pmtools-2.2.0/t/pmall.t.orig
  59 +++ pmtools-2.2.0/t/pmall.t
  60 @@ -12,7 +12,7 @@
  61  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  62
  63  eval {
  64 -    $output = `bin/pmall | t/head.pl 2>&1`;
  65 +    $output = `blib/script/pmall | t/head.pl 2>&1`;
  66  };
  67
  68  is($?,        0,                               "pmall runs");
  69 --- pmtools-2.2.0/t/pman.t.orig
  70 +++ pmtools-2.2.0/t/pman.t
  71 @@ -12,7 +12,7 @@
  72  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  73
  74  eval {
  75 -    $output = `bin/pman Carp 2>&1`;
  76 +    $output = `blib/script/pman Carp 2>&1`;
  77  };
  78
  79  is($?, 0, 'pman runs');
  80 --- pmtools-2.2.0/t/pmcat.t.orig
  81 +++ pmtools-2.2.0/t/pmcat.t
  82 @@ -12,7 +12,7 @@
  83  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  84
  85  eval {
  86 -    $output = `bin/pmcat Carp 2>&1`;
  87 +    $output = `blib/script/pmcat Carp 2>&1`;
  88  };
  89
  90  is($?,        0,                                        "pmcat runs");
  91 --- pmtools-2.2.0/t/pmcheck.t.orig
  92 +++ pmtools-2.2.0/t/pmcheck.t
  93 @@ -12,7 +12,7 @@
  94  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
  95
  96  eval {
  97 -    $output = `bin/pmcheck 2>&1`;
  98 +    $output = `blib/script/pmcheck 2>&1`;
  99  };
 100
 101  isnt($?,             127,  "pmcheck runs");
 102 --- pmtools-2.2.0/t/pmdesc.t.orig
 103 +++ pmtools-2.2.0/t/pmdesc.t
 104 @@ -16,12 +16,12 @@
 105  my $unified;
 106
 107  eval {
 108 -    $output_unified = `bin/pmdesc Carp 2>&1`;
 109 +    $output_unified = `blib/script/pmdesc Carp 2>&1`;
 110  };
 111  $unified = $?;
 112
 113  eval {
 114 -    $output_split = `bin/pmdesc --splitpod Carp 2>&1`;
 115 +    $output_split = `blib/script/pmdesc --splitpod Carp 2>&1`;
 116  };
 117  $split = $?;
 118
 119 --- pmtools-2.2.0/t/pmeth.t.orig
 120 +++ pmtools-2.2.0/t/pmeth.t
 121 @@ -12,7 +12,7 @@
 122  $ENV{'PATH'} = 'blib/script:' . $ENV{PATH};
 123
 124  eval {
 125 -    $output = `bin/pmeth Tie::Hash 2>&1`;
 126 +    $output = `blib/script/pmeth Tie::Hash 2>&1`;
 127  };
 128
 129  is($?,        0,                   "pmeth runs");
 130 --- pmtools-2.2.0/t/pmexp.t.orig
 131 +++ pmtools-2.2.0/t/pmexp.t
 132 @@ -12,7 +12,7 @@
 133  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 134
 135  eval {
 136 -    $output = `bin/pmexp Carp 2>&1`;
 137 +    $output = `blib/script/pmexp Carp 2>&1`;
 138  };
 139
 140  is($?,        0,                                      "pmexp runs");
 141 --- pmtools-2.2.0/t/pmfunc.t.orig
 142 +++ pmtools-2.2.0/t/pmfunc.t
 143 @@ -12,7 +12,7 @@
 144  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 145
 146  eval {
 147 -    $output = `bin/pmfunc Cwd::chdir 2>&1`;
 148 +    $output = `blib/script/pmfunc Cwd::chdir 2>&1`;
 149  };
 150
 151  isnt($?, 127, "pmfunc runs");
 152 --- pmtools-2.2.0/t/pmload.t.orig
 153 +++ pmtools-2.2.0/t/pmload.t
 154 @@ -12,7 +12,7 @@
 155  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 156
 157  eval {
 158 -    $output = `bin/pmload Tie::Hash 2>&1`;
 159 +    $output = `blib/script/pmload Tie::Hash 2>&1`;
 160  };
 161
 162  is($?,        0,               "pmload runs");
 163 --- pmtools-2.2.0/t/pmls.t.orig
 164 +++ pmtools-2.2.0/t/pmls.t
 165 @@ -12,7 +12,7 @@
 166  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 167
 168  eval {
 169 -    $output = `bin/pmls Tie::Hash 2>&1`;
 170 +    $output = `blib/script/pmls Tie::Hash 2>&1`;
 171  };
 172
 173  is($?, 0, "pmls runs");
 174 --- pmtools-2.2.0/t/pmpath.t.orig
 175 +++ pmtools-2.2.0/t/pmpath.t
 176 @@ -12,7 +12,7 @@
 177  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 178
 179  eval {
 180 -    $output = `bin/pmpath Tie::Hash 2>&1`;
 181 +    $output = `blib/script/pmpath Tie::Hash 2>&1`;
 182  };
 183
 184  is($?, 0, "pmpath runs");
 185 --- pmtools-2.2.0/t/pmvers.t.orig
 186 +++ pmtools-2.2.0/t/pmvers.t
 187 @@ -12,7 +12,7 @@
 188  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 189
 190  eval {
 191 -    $output = `bin/pmvers Tie::Hash 2>&1`;
 192 +    $output = `blib/script/pmvers Tie::Hash 2>&1`;
 193  };
 194
 195  is($?,        0,            "pmvers runs");
 196 --- pmtools-2.2.0/t/podgrep.t.orig
 197 +++ pmtools-2.2.0/t/podgrep.t
 198 @@ -12,7 +12,7 @@
 199  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 200
 201  eval {
 202 -    $output = `bin/podgrep DESC bin/podgrep 2>&1`;
 203 +    $output = `blib/script/podgrep DESC blib/script/podgrep 2>&1`;
 204  };
 205
 206  is($?, 0, "podgrep runs");
 207 --- pmtools-2.2.0/t/pods.t.orig
 208 +++ pmtools-2.2.0/t/pods.t
 209 @@ -12,7 +12,7 @@
 210  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 211
 212  eval {
 213 -    $output = `bin/pods 2>&1`;
 214 +    $output = `blib/script/pods 2>&1`;
 215  };
 216
 217  is($?, 0, "pods runs");
 218 --- pmtools-2.2.0/t/podtoc.t.orig
 219 +++ pmtools-2.2.0/t/podtoc.t
 220 @@ -12,7 +12,7 @@
 221  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 222
 223  eval {
 224 -    $output = `bin/podtoc bin/podtoc 2>&1`;
 225 +    $output = `blib/script/podtoc bin/podtoc 2>&1`;
 226  };
 227
 228  is($?, 0, "podtoc runs");
 229 --- pmtools-2.2.0/t/sitepods.t.orig
 230 +++ pmtools-2.2.0/t/sitepods.t
 231 @@ -12,7 +12,7 @@
 232  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 233
 234  eval {
 235 -    $output = `bin/sitepods 2>&1`;
 236 +    $output = `blib/script/sitepods 2>&1`;
 237  };
 238
 239  is($?, 0, "sitepods runs");
 240 --- pmtools-2.2.0/t/stdpods.t.orig
 241 +++ pmtools-2.2.0/t/stdpods.t
 242 @@ -12,7 +12,7 @@
 243  $ENV{"PATH"} = 'blib/script:' . $ENV{"PATH"};
 244
 245  eval {
 246 -    $output = `bin/stdpods 2>&1`;
 247 +    $output = `blib/script/stdpods 2>&1`;
 248  };
 249
 250  is($?, 0, "stdpods runs");