citrun

commit 0ef1ab94ce7b0d31370c602c792ba8179cb395e6
parent 493e7ae60d8c426c3940517bb9d91d0c7828c868
Author: Kyle Milz <kyle@0x30.net>
Date:   Sat,  2 Jul 2016 17:50:06 -0600

Test: print report header if no file exists

Diffstat:
M
Test/Report.pm
 | 
53
+++++++++++++++++++++++++++++++++++++++++++++--------
M
tt/libressl.t
 | 
2
+-
M
tt/vim.t
 | 
2
+-

3 files changed, 47 insertions(+), 10 deletions(-)
diff --git a/Test/Report.pm b/Test/Report.pm
@@ -4,7 +4,7 @@ use strict;
 use List::MoreUtils qw( each_array );
 
 sub new {
-	my ($class, $name) = @_;
+	my ($class, $name, $num_tests) = @_;
 
 	my $self = {};
 	bless($self, $class);
@@ -14,6 +14,9 @@ sub new {
 	$self->{vanilla} = [];
 	$self->{citrun} = [];
 
+	$self->{start_time} = time;
+	$self->{num_tests} = $num_tests;
+
 	return $self;
 }
 
@@ -23,6 +26,35 @@ sub add {
 	push @{ $self->{$field} }, ($desc);
 }
 
+sub write_header {
+
+	open (E2E_HEADER, ">", "e2e_report.txt") or die "$!";
+
+	format E2E_HEADER =
+END TO END TEST REPORT
+======================
+
+SYSTEM INFO
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+"started at:", `date`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"host:", `uname -n`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"os:", `uname -s`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"version:", `uname -r`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"arch:", `uname -m`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"user:", `logname`
+     @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<
+"citrun version:", `citrun-wrap -v`
+
+.
+	write E2E_HEADER;
+	close E2E_HEADER;
+}
+
 sub DESTROY {
 	my ($self) = @_;
 
@@ -36,16 +68,21 @@ sub DESTROY {
 		push @diff, $y * 100.0 / $x - 100.0;
 	}
 
+	if (! -e "e2e_report.txt") {
+		write_header();
+	}
+
 	open (E2E_REPORT, ">>", "e2e_report.txt") or die "$!";
 
 	format E2E_REPORT =
-@>>>>>>>>>>>>>>>>>>>>
-$self->{name}
-======================
-#      @<<<<<<<<<<<<<<<<<<<  @##.##
-# "60 data calls (s):", $data_call_dur
-#      @<<<<<<<<<<<<<<<<<<<  @#####
-# "tests ok:", $num_tests
+@<<<<<<<<<<<<<<<<<<<<<<<<<<
+"$self->{name}:"
+
+     @<<<<<<<<<<<<<<  @#### s
+"duration:", time - $self->{start_time}
+     @<<<<<<<<<<<<<< @#####
+"tests planned:", $self->{num_tests}
+
                                       @>>>>>>>>>   @>>>>>>>>>     @>>>>>>>
 "vanilla", "citrun", "diff (%)"
      ---------------------------------------------------------------------
diff --git a/tt/libressl.t b/tt/libressl.t
@@ -18,7 +18,7 @@ my $package = Test::Package->new("libressl-2.4.1.tar.gz", $libressl_url, "tar xz
 $package->dependencies("citrun");
 
 # New end to end report.
-my $report = Test::Report->new($package->dist_name());
+my $report = Test::Report->new($package->dist_name(), $num_tests);
 $report->add("desc", "configure time (sec)");
 $report->add("desc", "compile time (sec)");
 $report->add("desc", "openssl size (b)");
diff --git a/tt/vim.t b/tt/vim.t
@@ -28,7 +28,7 @@ sub time_expect {
 }
 
 # New end to end report.
-my $report = Test::Report->new($package->dist_name());
+my $report = Test::Report->new($package->dist_name(), $num_tests);
 $report->add("desc", "configure time (sec)");
 $report->add("desc", "compile time (sec)");
 $report->add("desc", "vim size (b)");