* rebuild from scratch each time.

* Rename file tests.
* use one version of roast
* record roast sha1
* avoid div-by-zero error.

spec_n → bin/niecza.sh

@@ -1,7 +1,8 @@
 #!/bin/sh
 
+rm -rf niecza
+git clone git://github.com/sorear/niecza.git
 cd niecza
-git pull --rebase
-(cd t/spec && git pull --rebase)
+ln -s ../../roast t/spec
 make all
 /home/coke/perl5/perlbrew/perls/perl-5.14.2/bin/perl t/spec/test_summary niecza 2>&1 | tee ../niecza_summary.out

spec_p → bin/pugs.sh

@@ -8,8 +8,9 @@ export LANG
 # - make dies and says "run cabal configure"
 #
 
+rm -rf Pugs.hs
+git clone git://github.com/perl6/Pugs.hs.git
 cd Pugs.hs
-git pull --rebase
-(cd t/spec && git pull --rebase)
+ln -s ../../roast t/spec
 (cd Pugs && make)
 /home/coke/perl5/perlbrew/perls/perl-5.14.2/bin/perl t/spec/test_summary pugs 2>&1 | tee ../pugs_summary.out

spec_r → bin/rakudo.sh

@@ -1,8 +1,9 @@
 #!/bin/sh
 
+rm -rf rakudo
+git clone git://github.com/rakudo/rakudo.git
 cd rakudo
-git pull --rebase
-(cd t/spec && git pull --rebase)
+ln -s ../../roast t/spec
 /home/coke/perl5/perlbrew/perls/perl-5.14.2/bin/perl Configure.pl --gen-parrot
 make all
 

bin/spec.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+rm -rf roast
+mkdir roast
+git clone git://github.com/perl6/roast.git

cull

@@ -26,12 +26,17 @@ foreach my $type (@types) {
 
 my $date=`date +'%m/%d/%Y'`;
 chomp $date;
-my $line = "# $date - ${best}++ ($max)";
+my $roast_version=`(cd roast && git rev-parse --short HEAD)`;
+chomp $roast_version;
+my $line = "# $date $roast_version ${best}++ ($max)";
 
 foreach my $type (sort @types) {
     next if $type eq $best;
 
-    my $per = int( $pass{$type}/$max *100*100)/100;
+    my $per = 0; 
+    if ($max != 0) {
+        $per = int( $pass{$type}/$max *100*100)/100;
+    }
     $line .= "; $type ($per%)"
 }
 

doit

@@ -1,7 +1,8 @@
 #!/bin/sh
-nice -20 ./spec_p
-nice -20 ./spec_n
-nice -20 ./spec_r
+nice -20 ./bin/spec.sh
+nice -20 ./bin/pugs.sh
+nice -20 ./bin/niecza.sh
+nice -20 ./bin/rakudo.sh
 TEMPFILE="TEMPFILE"
 PASSFILE="perl6_pass_rates"
 OUTPUT=`./cull`