citrun

watch C/C++ source code execute
Log | Files | Refs | LICENSE

commit bb88979fbbef70e5443cc1cb1ff90cdd53ac0e96
parent 8624e6b0f0ac6854f06cc837678ab65b9ba86b7b
Author: Kyle Milz <kyle@0x30.net>
Date:   Wed, 10 Aug 2016 01:44:31 -0600

test: move report.pm

Diffstat:
DTest/Report.pm | 97-------------------------------------------------------------------------------
Atest/report.pm | 97+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 97 insertions(+), 97 deletions(-)

diff --git a/Test/Report.pm b/Test/Report.pm @@ -1,97 +0,0 @@ -package Test::Report; -use strict; - -use List::MoreUtils qw( each_array ); - -sub new { - my ($class, $name, $num_tests) = @_; - - my $self = {}; - bless($self, $class); - - $self->{name} = $name; - $self->{desc} = []; - $self->{vanilla} = []; - $self->{citrun} = []; - - $self->{start_time} = time; - $self->{num_tests} = $num_tests; - - return $self; -} - -sub add { - my ($self, $field, $desc) = @_; - - push @{ $self->{$field} }, ($desc); -} - -sub write_header { - - open (E2E_HEADER, ">", "tt/report.txt") or die "$!"; - - format E2E_HEADER = -E2E TEST REPORT -=============== - -SYSTEM INFO - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< -"started at:", `date` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< -"host:", `uname -n` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< -"os:", `uname -s` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< -"version:", `uname -r` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< -"arch:", `uname -m` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< -"user:", `logname` - @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< -"citrun version:", 0 - -. - write E2E_HEADER; - close E2E_HEADER; -} - -sub DESTROY { - my ($self) = @_; - - my @diff; - my @desc = @{ $self->{desc} }; - my @vanilla = @{ $self->{vanilla} }; - my @citrun = @{ $self->{citrun} }; - - my $it = each_array( @vanilla, @citrun ); - while ( my ($x, $y) = $it->() ) { - push @diff, $y * 100.0 / $x - 100.0; - } - - if (! -e "tt/report.txt") { - write_header(); - } - - open (E2E_REPORT, ">>", "tt/report.txt") or die "$!"; - - format E2E_REPORT = -@<<<<<<<<<<<<<<<<<<<<<<<<<< -$self->{name} - @<<<<<<<<<<<<<< @#### s -"duration:", time - $self->{start_time} - @<<<<<<<<<<<<<< @##### -"tests planned:", $self->{num_tests} - - @>>>>>>>>> @>>>>>>>>> @>>>>>>> -"vanilla", "citrun", "diff (%)" - --------------------------------------------------------------------- - @<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>> @>>>> ~~ -shift(@desc), shift(@vanilla), shift(@citrun), shift(@diff) - -. - - write E2E_REPORT; - close E2E_REPORT; -} - -1; diff --git a/test/report.pm b/test/report.pm @@ -0,0 +1,97 @@ +package test::report; +use strict; + +use List::MoreUtils qw( each_array ); + +sub new { + my ($class, $name, $num_tests) = @_; + + my $self = {}; + bless($self, $class); + + $self->{name} = $name; + $self->{desc} = []; + $self->{vanilla} = []; + $self->{citrun} = []; + + $self->{start_time} = time; + $self->{num_tests} = $num_tests; + + return $self; +} + +sub add { + my ($self, $field, $desc) = @_; + + push @{ $self->{$field} }, ($desc); +} + +sub write_header { + + open (E2E_HEADER, ">", "tt/report.txt") or die "$!"; + + format E2E_HEADER = +E2E TEST REPORT +=============== + +SYSTEM INFO + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< +"started at:", `date` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< +"host:", `uname -n` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< +"os:", `uname -s` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< +"version:", `uname -r` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< +"arch:", `uname -m` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< +"user:", `logname` + @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< +"citrun version:", 0 + +. + write E2E_HEADER; + close E2E_HEADER; +} + +sub DESTROY { + my ($self) = @_; + + my @diff; + my @desc = @{ $self->{desc} }; + my @vanilla = @{ $self->{vanilla} }; + my @citrun = @{ $self->{citrun} }; + + my $it = each_array( @vanilla, @citrun ); + while ( my ($x, $y) = $it->() ) { + push @diff, $y * 100.0 / $x - 100.0; + } + + if (! -e "tt/report.txt") { + write_header(); + } + + open (E2E_REPORT, ">>", "tt/report.txt") or die "$!"; + + format E2E_REPORT = +@<<<<<<<<<<<<<<<<<<<<<<<<<< +$self->{name} + @<<<<<<<<<<<<<< @#### s +"duration:", time - $self->{start_time} + @<<<<<<<<<<<<<< @##### +"tests planned:", $self->{num_tests} + + @>>>>>>>>> @>>>>>>>>> @>>>>>>> +"vanilla", "citrun", "diff (%)" + --------------------------------------------------------------------- + @<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>> @>>>> ~~ +shift(@desc), shift(@vanilla), shift(@citrun), shift(@diff) + +. + + write E2E_REPORT; + close E2E_REPORT; +} + +1;