ソースを参照

Merge pull request #12 from troglodyne/better-test-instruct

Better test instruct
Andy Baugh 7 年 前
コミット
55c7fd154a
1 ファイル変更11 行追加1 行削除
  1. 11 1
      scripts/generate_testing_configuration.pl

+ 11 - 1
scripts/generate_testing_configuration.pl

@@ -28,10 +28,20 @@ foreach my $key ( keys( %$settings_hr ) ) {
     print $fh "$key: " . <STDIN>;
 }
 close( $fh );
+
+my $provepath = 'prove';
+# Figure out if cPanel perl & prove exist. If so, use it, as it'll have a better chance of working.
+if( -f '/usr/local/cpanel/3rdparty/bin/perl' ) {
+    print "Checking cPanel Perl version...\n";
+    my $cpperl_ver = `/usr/local/cpanel/3rdparty/bin/perl -e 'print substr( \$], 0, 1 ) . substr( \$], 3, 2 );'`;
+    print "Looks like perl $cpperl_ver.\n";
+    $provepath = "/usr/local/cpanel/3rdparty/perl/$cpperl_ver/bin/prove";
+}
+
 print STDOUT (
     "Done writing to $gitdir/.${file_name_prefix}testrc.\n",
     "The functional test in t/ should now work when ran like so:\n",
-    "AUTHOR_TESTS=1 prove $gitdir/t/Cpanel-iContact-Provider-$module_name.t\n"
+    "AUTHOR_TESTS=1 $provepath $gitdir/t/Cpanel-iContact-Provider-$module_name.t\n"
 );
 
 0;