1#!/usr/bin/env perl
2#***************************************************************************
3#                                  _   _ ____  _
4#  Project                     ___| | | |  _ \| |
5#                             / __| | | | |_) | |
6#                            | (__| |_| |  _ <| |___
7#                             \___|\___/|_| \_\_____|
8#
9# Copyright (C) 1998 - 2014, Daniel Stenberg, <daniel@haxx.se>, et al.
10#
11# This software is licensed as described in the file COPYING, which
12# you should have received as part of this distribution. The terms
13# are also available at http://curl.haxx.se/docs/copyright.html.
14#
15# You may opt to use, copy, modify, merge, publish, distribute and/or sell
16# copies of the Software, and permit persons to whom the Software is
17# furnished to do so, under the terms of the COPYING file.
18#
19# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
20# KIND, either express or implied.
21#
22###########################################################################
23
24###########################
25#  What is This Script?
26###########################
27
28# testcurl.pl is the master script to use for automatic testing of curl
29# directly off its source repository.
30# This is written for the purpose of being run from a crontab job or similar
31# at a regular interval. The output is suitable to be mailed to
32# curl-autocompile@haxx.se to be dealt with automatically (make sure the
33# subject includes the word "autobuild" as the mail gets silently discarded
34# otherwise).  The most current build status (with a resonable backlog) will
35# be published on the curl site, at http://curl.haxx.se/auto/
36
37# USAGE:
38# testcurl.pl [options] [curl-daily-name] > output
39
40# Options:
41#
42# --configure=[options]    Configure options
43# --crosscompile           This is a crosscompile
44# --desc=[desc]            Description of your test system
45# --email=[email]          Set email address to report as
46# --extvercmd=[command]    Command to use for displaying version with cross compiles.
47# --mktarball=[command]    Command to run after completed test
48# --name=[name]            Set name to report as
49# --nocvsup                Don't pull from git even though it is a git tree
50# --nogitpull              Don't pull from git even though it is a git tree
51# --nobuildconf            Don't run buildconf
52# --noconfigure            Don't run configure
53# --runtestopts=[options]  Options to pass to runtests.pl
54# --setup=[file name]      File name to read setup from (deprecated)
55# --target=[your os]       Specify your target environment.
56#
57# if [curl-daily-name] is omitted, a 'curl' git directory is assumed.
58#
59
60use strict;
61
62use Cwd;
63
64# Turn on warnings (equivalent to -w, which can't be used with /usr/bin/env)
65#BEGIN { $^W = 1; }
66
67use vars qw($version $fixed $infixed $CURLDIR $git $pwd $build $buildlog
68            $buildlogname $configurebuild $targetos $confheader $binext
69            $libext);
70
71use vars qw($name $email $desc $confopts $runtestopts $setupfile $mktarball
72            $extvercmd $nogitpull $nobuildconf $crosscompile
73            $timestamp $notes);
74
75# version of this script
76$version='2012-11-30';
77$fixed=0;
78
79# Determine if we're running from git or a canned copy of curl,
80# or if we got a specific target option or setup file option.
81$CURLDIR="curl";
82if (-f ".git/config") {
83  $CURLDIR = "./";
84}
85
86$git=1;
87$setupfile = 'setup';
88$configurebuild = 1;
89while ($ARGV[0]) {
90  if ($ARGV[0] =~ /--target=/) {
91    $targetos = (split(/=/, shift @ARGV))[1];
92  }
93  elsif ($ARGV[0] =~ /--setup=/) {
94    $setupfile = (split(/=/, shift @ARGV))[1];
95  }
96  elsif ($ARGV[0] =~ /--extvercmd=/) {
97    $extvercmd = (split(/=/, shift @ARGV))[1];
98  }
99  elsif ($ARGV[0] =~ /--mktarball=/) {
100    $mktarball = (split(/=/, shift @ARGV))[1];
101  }
102  elsif ($ARGV[0] =~ /--name=/) {
103    $name = (split(/=/, shift @ARGV))[1];
104  }
105  elsif ($ARGV[0] =~ /--email=/) {
106    $email = (split(/=/, shift @ARGV))[1];
107  }
108  elsif ($ARGV[0] =~ /--desc=/) {
109    $desc = (split(/=/, shift @ARGV))[1];
110  }
111  elsif ($ARGV[0] =~ /--configure=(.*)/) {
112    $confopts = $1;
113    shift @ARGV;
114  }
115  elsif (($ARGV[0] eq "--nocvsup") || ($ARGV[0] eq "--nogitpull")) {
116    $nogitpull=1;
117    shift @ARGV;
118  }
119  elsif ($ARGV[0] =~ /--nobuildconf/) {
120    $nobuildconf=1;
121    shift @ARGV;
122  }
123  elsif ($ARGV[0] =~ /--noconfigure/) {
124    $configurebuild=0;
125    shift @ARGV;
126  }
127  elsif ($ARGV[0] =~ /--crosscompile/) {
128    $crosscompile=1;
129    shift @ARGV;
130  }
131  elsif ($ARGV[0] =~ /--runtestopts=/) {
132    $runtestopts = (split(/=/, shift @ARGV, 2))[1];
133  }
134  else {
135    $CURLDIR=shift @ARGV;
136    $git=0; # a given dir, assume not using git
137  }
138}
139
140# Do the platform-specific stuff here
141$confheader = 'curl_config.h';
142$binext = '';
143$libext = '.la'; # .la since both libcurl and libcares are made with libtool
144if ($^O eq 'MSWin32' || $targetos) {
145  if (!$targetos) {
146    # If no target defined on Win32 lets assume vc
147    $targetos = 'vc';
148  }
149  if ($targetos =~ /vc/ || $targetos =~ /borland/ || $targetos =~ /watcom/) {
150    $binext = '.exe';
151    $libext = '.lib';
152  }
153  elsif ($targetos =~ /mingw/) {
154    $binext = '.exe';
155    if ($^O eq 'MSWin32') {
156      $libext = '.a';
157    }
158  }
159  elsif ($targetos =~ /netware/) {
160    $configurebuild = 0;
161    $binext = '.nlm';
162    if ($^O eq 'MSWin32') {
163      $libext = '.lib';
164    }
165    else {
166      $libext = '.a';
167    }
168  }
169}
170
171if (($^O eq 'MSWin32' || $^O eq 'msys') &&
172    ($targetos =~ /vc/ || $targetos =~ /mingw32/ ||
173     $targetos =~ /borland/ || $targetos =~ /watcom/)) {
174
175  # Set these things only when building ON Windows and for Win32 platform.
176  # FOR Windows since we might be cross-compiling on another system. Non-
177  # Windows builds still default to configure-style builds with curl_config.h.
178
179  $configurebuild = 0;
180  $confheader = 'config-win32.h';
181}
182
183$ENV{LC_ALL}="C" if (($ENV{LC_ALL}) && ($ENV{LC_ALL} !~ /^C$/));
184$ENV{LC_CTYPE}="C" if (($ENV{LC_CTYPE}) && ($ENV{LC_CTYPE} !~ /^C$/));
185$ENV{LANG}="C";
186
187sub rmtree($) {
188    my $target = $_[0];
189    if ($^O eq 'MSWin32') {
190      foreach (glob($target)) {
191        s:/:\\:g;
192        system("rd /s /q $_");
193      }
194    } else {
195      system("rm -rf $target");
196    }
197}
198
199sub grepfile($$) {
200    my ($target, $fn) = @_;
201    open(F, $fn) or die;
202    while (<F>) {
203      if (/$target/) {
204        close(F);
205        return 1;
206      }
207    }
208    close(F);
209    return 0;
210}
211
212sub logit($) {
213    my $text=$_[0];
214    if ($text) {
215      print "testcurl: $text\n";
216    }
217}
218
219sub logit_spaced($) {
220    my $text=$_[0];
221    if ($text) {
222      print "\ntestcurl: $text\n\n";
223    }
224}
225
226sub mydie($){
227    my $text=$_[0];
228    logit "$text";
229    chdir $pwd; # cd back to the original root dir
230
231    if ($pwd && $build) {
232      # we have a build directory name, remove the dir
233      logit "removing the $build dir";
234      rmtree "$pwd/$build";
235    }
236    if (-r $buildlog) {
237      # we have a build log output file left, remove it
238      logit "removing the $buildlogname file";
239      unlink "$buildlog";
240    }
241    logit "ENDING HERE"; # last line logged!
242    exit 1;
243}
244
245sub get_host_triplet {
246  my $triplet;
247  my $configfile = "$pwd/$build/lib/curl_config.h";
248
249  if(-f $configfile && -s $configfile && open(LIBCONFIGH, "<$configfile")) {
250    while(<LIBCONFIGH>) {
251      if($_ =~ /^\#define\s+OS\s+"*([^"][^"]*)"*\s*/) {
252        $triplet = $1;
253        last;
254      }
255    }
256    close(LIBCONFIGH);
257  }
258  return $triplet;
259}
260
261if (open(F, "$setupfile")) {
262  while (<F>) {
263    if (/(\w+)=(.*)/) {
264      eval "\$$1=$2;";
265    }
266  }
267  close(F);
268  $infixed=$fixed;
269} else {
270  $infixed=0;    # so that "additional args to configure" works properly first time...
271}
272
273if (!$name) {
274  print "please enter your name\n";
275  $name = <>;
276  chomp $name;
277  $fixed=1;
278}
279
280if (!$email) {
281  print "please enter your contact email address\n";
282  $email = <>;
283  chomp $email;
284  $fixed=2;
285}
286
287if (!$desc) {
288  print "please enter a one line system description\n";
289  $desc = <>;
290  chomp $desc;
291  $fixed=3;
292}
293
294if (!$confopts) {
295  if ($infixed < 4) {
296    print "please enter your additional arguments to configure\n";
297    print "examples: --with-ssl --enable-debug --enable-ipv6 --with-krb4\n";
298    $confopts = <>;
299    chomp $confopts;
300  }
301}
302
303
304if ($fixed < 4) {
305    $fixed=4;
306    open(F, ">$setupfile") or die;
307    print F "name='$name'\n";
308    print F "email='$email'\n";
309    print F "desc='$desc'\n";
310    print F "confopts='$confopts'\n";
311    print F "notes='$notes'\n";
312    print F "fixed='$fixed'\n";
313    close(F);
314}
315
316# Enable picky compiler warnings unless explicitly disabled
317if (($confopts !~ /--enable-debug/) &&
318    ($confopts !~ /--enable-warnings/) &&
319    ($confopts !~ /--disable-warnings/)) {
320  $confopts .= " --enable-warnings";
321}
322
323my $str1066os = 'o' x 1066;
324
325# Set timestamp to the UTC this script is running. Its value might
326# be changed later in the script to the value present in curlver.h
327$timestamp = scalar(gmtime)." UTC";
328
329logit "STARTING HERE"; # first line logged, for scripts to trigger on
330logit 'TRANSFER CONTROL ==== 1120 CHAR LINE' . $str1066os . 'LINE_END';
331logit "NAME = $name";
332logit "EMAIL = $email";
333logit "DESC = $desc";
334logit "NOTES = $notes";
335logit "CONFOPTS = $confopts";
336logit "CPPFLAGS = ".$ENV{CPPFLAGS};
337logit "CFLAGS = ".$ENV{CFLAGS};
338logit "LDFLAGS = ".$ENV{LDFLAGS};
339logit "LIBS = ".$ENV{LIBS};
340logit "CC = ".$ENV{CC};
341logit "TMPDIR = ".$ENV{TMPDIR};
342logit "MAKEFLAGS = ".$ENV{MAKEFLAGS};
343logit "ACLOCAL_FLAGS = ".$ENV{ACLOCAL_FLAGS};
344logit "PKG_CONFIG_PATH = ".$ENV{PKG_CONFIG_PATH};
345logit "DYLD_LIBRARY_PATH = ".$ENV{DYLD_LIBRARY_PATH};
346logit "LD_LIBRARY_PATH = ".$ENV{LD_LIBRARY_PATH};
347logit "LIBRARY_PATH = ".$ENV{LIBRARY_PATH};
348logit "SHLIB_PATH = ".$ENV{SHLIB_PATH};
349logit "LIBPATH = ".$ENV{LIBPATH};
350logit "target = ".$targetos;
351logit "version = $version"; # script version
352logit "date = $timestamp";  # When the test build starts
353
354$str1066os = undef;
355
356# Make $pwd to become the path without newline. We'll use that in order to cut
357# off that path from all possible logs and error messages etc.
358$pwd = getcwd();
359
360my $have_embedded_ares = 0;
361
362if (-d $CURLDIR) {
363  if ($git && -d "$CURLDIR/.git") {
364    logit "$CURLDIR is verified to be a fine git source dir";
365    # remove the generated sources to force them to be re-generated each
366    # time we run this test
367    unlink "$CURLDIR/src/tool_hugehelp.c";
368    # find out if curl source dir has an in-tree c-ares repo
369    $have_embedded_ares = 1 if (-f "$CURLDIR/ares/GIT-INFO");
370  } elsif (!$git && -f "$CURLDIR/tests/testcurl.pl") {
371    logit "$CURLDIR is verified to be a fine daily source dir";
372    # find out if curl source dir has an in-tree c-ares extracted tarball
373    $have_embedded_ares = 1 if (-f "$CURLDIR/ares/ares_build.h");
374  } else {
375    mydie "$CURLDIR is not a daily source dir or checked out from git!"
376  }
377}
378$build="build-$$";
379$buildlogname="buildlog-$$";
380$buildlog="$pwd/$buildlogname";
381
382# remove any previous left-overs
383rmtree "build-*";
384rmtree "buildlog-*";
385
386# this is to remove old build logs that ended up in the wrong dir
387foreach (glob("$CURLDIR/buildlog-*")) { unlink $_; }
388
389# create a dir to build in
390mkdir $build, 0777;
391
392if (-d $build) {
393  logit "build dir $build was created fine";
394} else {
395  mydie "failed to create dir $build";
396}
397
398# get in the curl source tree root
399chdir $CURLDIR;
400
401# Do the git thing, or not...
402if ($git) {
403  my $gitstat = 0;
404  my @commits;
405
406  # update quietly to the latest git
407  if($nogitpull) {
408    logit "skipping git pull (--nogitpull)";
409  } else {
410    logit "run git pull in curl";
411    system("git pull 2>&1");
412    $gitstat += $?;
413    logit "failed to update from curl git ($?), continue anyway" if ($?);
414
415    # Set timestamp to the UTC the git update took place.
416    $timestamp = scalar(gmtime)." UTC" if (!$gitstat);
417  }
418
419  # get the last 5 commits for show (even if no pull was made)
420  @commits=`git log --pretty=oneline --abbrev-commit -5`;
421  logit "The most recent curl git commits:";
422  for (@commits) {
423    chomp ($_);
424    logit "  $_";
425  }
426
427  if (-d "ares/.git") {
428    chdir "ares";
429
430    if($nogitpull) {
431      logit "skipping git pull (--nogitpull) in ares";
432    } else {
433      logit "run git pull in ares";
434      system("git pull 2>&1");
435      $gitstat += $?;
436      logit "failed to update from ares git ($?), continue anyway" if ($?);
437
438      # Set timestamp to the UTC the git update took place.
439      $timestamp = scalar(gmtime)." UTC" if (!$gitstat);
440    }
441
442    # get the last 5 commits for show (even if no pull was made)
443    @commits=`git log --pretty=oneline --abbrev-commit -5`;
444    logit "The most recent ares git commits:";
445    for (@commits) {
446      chomp ($_);
447      logit "  $_";
448    }
449
450    chdir "$pwd/$CURLDIR";
451  }
452
453  if($nobuildconf) {
454    logit "told to not run buildconf";
455  }
456  elsif ($configurebuild) {
457    # remove possible left-overs from the past
458    unlink "configure";
459    unlink "autom4te.cache";
460
461    # generate the build files
462    logit "invoke buildconf";
463    open(F, "./buildconf 2>&1 |") or die;
464    open(LOG, ">$buildlog") or die;
465    while (<F>) {
466      my $ll = $_;
467      # ignore messages pertaining to third party m4 files we don't care
468      next if ($ll =~ /aclocal\/gtk\.m4/);
469      next if ($ll =~ /aclocal\/gtkextra\.m4/);
470      print $ll;
471      print LOG $ll;
472    }
473    close(F);
474    close(LOG);
475
476    if (grepfile("^buildconf: OK", $buildlog)) {
477      logit "buildconf was successful";
478    }
479    else {
480      mydie "buildconf was NOT successful";
481    }
482  }
483  else {
484    logit "buildconf was successful (dummy message)";
485  }
486}
487
488# Set timestamp to the one in curlver.h if this isn't a git test build.
489if ((-f "include/curl/curlver.h") &&
490    (open(F, "<include/curl/curlver.h"))) {
491  while (<F>) {
492    chomp;
493    if ($_ =~ /^\#define\s+LIBCURL_TIMESTAMP\s+\"(.+)\".*$/) {
494      my $stampstring = $1;
495      if ($stampstring !~ /DEV/) {
496          $stampstring =~ s/\s+UTC//;
497          $timestamp = $stampstring." UTC";
498      }
499      last;
500    }
501  }
502  close(F);
503}
504
505# Show timestamp we are using for this test build.
506logit "timestamp = $timestamp";
507
508if ($configurebuild) {
509  if (-f "configure") {
510    logit "configure created (at least it exists)";
511  } else {
512    mydie "no configure created/found";
513  }
514} else {
515  logit "configure created (dummy message)"; # dummy message to feign success
516}
517
518sub findinpath {
519  my $c;
520  my $e;
521  my $x = ($^O eq 'MSWin32') ? '.exe' : '';
522  my $s = ($^O eq 'MSWin32') ? ';' : ':';
523  my $p=$ENV{'PATH'};
524  my @pa = split($s, $p);
525  for $c (@_) {
526    for $e (@pa) {
527      if( -x "$e/$c$x") {
528        return $c;
529      }
530    }
531  }
532}
533
534my $make = findinpath("gmake", "make", "nmake");
535if(!$make) {
536    mydie "Couldn't find make in the PATH";
537}
538# force to 'nmake' for VC builds
539$make = "nmake" if ($targetos =~ /vc/);
540# force to 'wmake' for Watcom builds
541$make = "wmake" if ($targetos =~ /watcom/);
542logit "going with $make as make";
543
544# change to build dir
545chdir "$pwd/$build";
546
547if ($configurebuild) {
548  # run configure script
549  print `../$CURLDIR/configure $confopts 2>&1`;
550
551  if (-f "lib/Makefile") {
552    logit "configure seems to have finished fine";
553  } else {
554    mydie "configure didn't work";
555  }
556} else {
557  logit "copying files to build dir ...";
558  if (($^O eq 'MSWin32') && ($targetos !~ /netware/)) {
559    system("xcopy /s /q ..\\$CURLDIR .");
560    system("buildconf.bat");
561  }
562  elsif ($targetos =~ /netware/) {
563    system("cp -afr ../$CURLDIR/* .");
564    system("cp -af ../$CURLDIR/Makefile.dist Makefile");
565    system("$make -i -C lib -f Makefile.netware prebuild");
566    system("$make -i -C src -f Makefile.netware prebuild");
567    if (-d "../$CURLDIR/ares") {
568      system("$make -i -C ares -f Makefile.netware prebuild");
569    }
570  }
571  elsif ($^O eq 'linux') {
572    system("cp -afr ../$CURLDIR/* .");
573    system("cp -af ../$CURLDIR/Makefile.dist Makefile");
574    system("cp -af ../$CURLDIR/include/curl/curlbuild.h.dist ./include/curl/curlbuild.h");
575    system("$make -i -C lib -f Makefile.$targetos prebuild");
576    system("$make -i -C src -f Makefile.$targetos prebuild");
577    if (-d "../$CURLDIR/ares") {
578      system("cp -af ../$CURLDIR/ares/ares_build.h.dist ./ares/ares_build.h");
579      system("$make -i -C ares -f Makefile.$targetos prebuild");
580    }
581  }
582}
583
584if(-f "./libcurl.pc") {
585  logit_spaced "display libcurl.pc";
586  if(open(F, "<./libcurl.pc")) {
587    while(<F>) {
588      my $ll = $_;
589      print $ll if(($ll !~ /^ *#/) && ($ll !~ /^ *$/));
590    }
591    close(F);
592  }
593}
594
595if(-f "./include/curl/curlbuild.h") {
596  logit_spaced "display include/curl/curlbuild.h";
597  if(open(F, "<./include/curl/curlbuild.h")) {
598    while(<F>) {
599      my $ll = $_;
600      print $ll if(($ll =~ /^ *# *define *CURL_/) && ($ll !~ /__CURL_CURLBUILD_H/));
601    }
602    close(F);
603  }
604}
605else {
606  mydie "no curlbuild.h created/found";
607}
608
609logit_spaced "display lib/$confheader";
610open(F, "lib/$confheader") or die "lib/$confheader: $!";
611while (<F>) {
612  print if /^ *#/;
613}
614close(F);
615
616if (($have_embedded_ares) &&
617    (grepfile("^#define USE_ARES", "lib/$confheader"))) {
618  print "\n";
619  logit "setup to build ares";
620
621  if(-f "./ares/libcares.pc") {
622    logit_spaced  "display ares/libcares.pc";
623    if(open(F, "<./ares/libcares.pc")) {
624      while(<F>) {
625        my $ll = $_;
626        print $ll if(($ll !~ /^ *#/) && ($ll !~ /^ *$/));
627      }
628      close(F);
629    }
630  }
631
632  if(-f "./ares/ares_build.h") {
633    logit_spaced "display ares/ares_build.h";
634    if(open(F, "<./ares/ares_build.h")) {
635      while(<F>) {
636        my $ll = $_;
637        print $ll if(($ll =~ /^ *# *define *CARES_/) && ($ll !~ /__CARES_BUILD_H/));
638      }
639      close(F);
640    }
641  }
642  else {
643    mydie "no ares_build.h created/found";
644  }
645
646  $confheader =~ s/curl/ares/;
647  logit_spaced "display ares/$confheader";
648  if(open(F, "ares/$confheader")) {
649      while (<F>) {
650          print if /^ *#/;
651      }
652      close(F);
653  }
654
655  print "\n";
656  logit "build ares";
657  chdir "ares";
658
659  if ($targetos && !$configurebuild) {
660      logit "$make -f Makefile.$targetos";
661      open(F, "$make -f Makefile.$targetos 2>&1 |") or die;
662  }
663  else {
664      logit "$make";
665      open(F, "$make 2>&1 |") or die;
666  }
667  while (<F>) {
668    s/$pwd//g;
669    print;
670  }
671  close(F);
672
673  if (-f "libcares$libext") {
674    logit "ares is now built successfully (libcares$libext)";
675  } else {
676    mydie "ares build failed (libcares$libext)";
677  }
678
679  # cd back to the curl build dir
680  chdir "$pwd/$build";
681}
682
683my $mkcmd = "$make -i" . ($targetos && !$configurebuild ? " $targetos" : "");
684logit "$mkcmd";
685open(F, "$mkcmd 2>&1 |") or die;
686while (<F>) {
687  s/$pwd//g;
688  print;
689}
690close(F);
691
692if (-f "lib/libcurl$libext") {
693  logit "libcurl was created fine (libcurl$libext)";
694}
695else {
696  mydie "libcurl was not created (libcurl$libext)";
697}
698
699if (-f "src/curl$binext") {
700  logit "curl was created fine (curl$binext)";
701}
702else {
703  mydie "curl was not created (curl$binext)";
704}
705
706if (!$crosscompile || (($extvercmd ne '') && (-x $extvercmd))) {
707  logit "display curl${binext} --version output";
708  my $cmd = ($extvercmd ne '' ? $extvercmd.' ' : '')."./src/curl${binext} --version|";
709  open(F, $cmd);
710  while(<F>) {
711    # strip CR from output on non-win32 platforms (wine on Linux)
712    s/\r// if ($^O ne 'MSWin32');
713    print;
714  }
715  close(F);
716}
717
718if ($configurebuild && !$crosscompile) {
719  my $host_triplet = get_host_triplet();
720  # build example programs for selected build targets
721  if(($host_triplet =~ /([^-]+)-([^-]+)-irix(.*)/) ||
722     ($host_triplet =~ /([^-]+)-([^-]+)-aix(.*)/) ||
723     ($host_triplet =~ /([^-]+)-([^-]+)-osf(.*)/) ||
724     ($host_triplet =~ /([^-]+)-([^-]+)-solaris2(.*)/)) {
725    chdir "$pwd/$build/docs/examples";
726    logit_spaced "build examples";
727    open(F, "$make -i 2>&1 |") or die;
728    open(LOG, ">$buildlog") or die;
729    while (<F>) {
730      s/$pwd//g;
731      print;
732      print LOG;
733    }
734    close(F);
735    close(LOG);
736    chdir "$pwd/$build";
737  }
738  # build and run full test suite
739  my $o;
740  if($runtestopts) {
741      $o = "TEST_F=\"$runtestopts\" ";
742  }
743  logit "$make -k ${o}test-full";
744  open(F, "$make -k ${o}test-full 2>&1 |") or die;
745  open(LOG, ">$buildlog") or die;
746  while (<F>) {
747    s/$pwd//g;
748    print;
749    print LOG;
750  }
751  close(F);
752  close(LOG);
753
754  if (grepfile("^TEST", $buildlog)) {
755    logit "tests were run";
756  } else {
757    mydie "test suite failure";
758  }
759
760  if (grepfile("^TESTFAIL:", $buildlog)) {
761    logit "the tests were not successful";
762  } else {
763    logit "the tests were successful!";
764  }
765}
766else {
767  if($crosscompile) {
768    my $host_triplet = get_host_triplet();
769    # build example programs for selected cross-compiles
770    if(($host_triplet =~ /([^-]+)-([^-]+)-mingw(.*)/) ||
771       ($host_triplet =~ /([^-]+)-([^-]+)-android(.*)/)) {
772      chdir "$pwd/$build/docs/examples";
773      logit_spaced "build examples";
774      open(F, "$make -i 2>&1 |") or die;
775      open(LOG, ">$buildlog") or die;
776      while (<F>) {
777        s/$pwd//g;
778        print;
779        print LOG;
780      }
781      close(F);
782      close(LOG);
783      chdir "$pwd/$build";
784    }
785    # build test harness programs for selected cross-compiles
786    if($host_triplet =~ /([^-]+)-([^-]+)-mingw(.*)/) {
787      chdir "$pwd/$build/tests";
788      logit_spaced "build test harness";
789      open(F, "$make -i 2>&1 |") or die;
790      open(LOG, ">$buildlog") or die;
791      while (<F>) {
792        s/$pwd//g;
793        print;
794        print LOG;
795      }
796      close(F);
797      close(LOG);
798      chdir "$pwd/$build";
799    }
800    logit_spaced "cross-compiling, can't run tests";
801  }
802  # dummy message to feign success
803  print "TESTDONE: 1 tests out of 0 (dummy message)\n";
804}
805
806# create a tarball if we got that option.
807if (($mktarball ne '') && (-x $mktarball)) {
808  system($mktarball);
809}
810
811# mydie to cleanup
812mydie "ending nicely";
813