Parrot smoke

This is how embedded parrot tests in smoke

mktest.pl at the end:

--8<---
	    if (@harness) {
		local $ENV{PERL_SKIP_TTY_TEST} = 1;
		print TTY "\nExtending failures with Harness\n";
		print LOG "\n",
		    grep !m:\bFAILED tests\b: &&
			 !m:% okay$: => qx "./perl t/harness @harness";

		}
	    }
	print TTY "\n";

	# Done with perl tests

	-f "../parrot-latest.tbz" or next;
	qx "gzip -d < ../parrot-latest.tar.gz | tar xf -";
	chdir "parrot" or next;
	$ENV{PERL5LIB} = "/pro/3gl/CPAN/perl-current/lib";
	qx "../perl -I../lib Configure.pl --default 2>>../parrot2.log";
	if (-f "Makefile") {
	    qx "make test_prog 2>>../parrot2.log";
	    if (open  LOG1, ">>../parrot1.log") {
		print LOG1 "Conf: $s_conf", "=" x 78, "\n";
		open  LOG2, ">>../parrot2.log";
		print LOG2 "Conf: $s_conf", "=" x 78, "\n";
		close LOG2;
		-x "test_prog" and print LOG1 qx "make test 2>>../parrot2.log";
		close LOG1;
		}
	    }
	chdir "..";
	qx "rm -rf parrot";
	}
-->8---

And your smoke.sh rsync changes like

--8<---
#!/bin/sh

# This should be run with cron

# Change your base dir here
export PC
PC=${1:-/usr/CPAN/perl-current}
CF=${2:-smoke.cfg}

# Set other environmental values here

export PATH
PATH=`pwd`:$PATH

echo "Smoke $PC"
umask 0

cd $PC || exit 1
wget http://cvs.perl.org/snapshots/parrot/parrot-latest.tar.gz
mv parrot-latest.tar.gz ..

make -i distclean > /dev/null 2>&1
rsync -avz --delete rsync://ftp.linux.activestate.com/perl-current/ .

(mktest.pl $CF 2>&1) >mktest.log      || echo mktest.pl exited with exit code $?

mkovz.pl [email protected] $PC || echo mkovz.pl  exited with exit code $?
-->8---

This is just a little cut-n-paste and does not reflect *my* situation, but
just shows how I did it.

I also have no parrot1.log/parrot2.log parser. Mattia?

Just timed one go, which adds about 50 seconds to each go. For my machine that
would be about 4 x 14 x 50" = 46 minutes

-- 
H.Merijn Brand    Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.6.1, 5.7.1 & 629 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
  WinNT 4, Win2K pro & WinCE 2.11.  Smoking perl CORE: [email protected]
http://archives.develooper.com/[email protected]/   [email protected]
send smoke reports to: [email protected], QA: http://qa.perl.org