citrun

commit 949e219a3af3bbe5020ceeb3aabaa45521c6e378
parent 23864a7c22d456e2c0c0a5ab4b0c9c98c070c6f4
Author: Kyle Milz <kyle@0x30.net>
Date:   Fri, 16 Dec 2016 19:11:23 -0700

t: add checks for translation units and loc

Diffstat:
M
t/lib_header.t
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/t/lib_header.t b/t/lib_header.t
@@ -3,7 +3,7 @@
 #
 use strict;
 use warnings;
-use Test::More tests => 13;
+use Test::More tests => 15;
 use t::program;
 use t::shm;
 use t::tmpdir;
@@ -18,9 +18,11 @@ my @procfiles = glob("$ENV{CITRUN_PROCDIR}/program_*");
 is scalar @procfiles,	1,	"is one file in procdir";
 
 my $shm = t::shm->new($procfiles[0]);
-is $shm->{magic},	"ctrn",	"is file magic correct";
-is $shm->{major},	0,	"is major correct";
-is $shm->{minor},	0,	"is minor correct";
+is $shm->{magic},	"ctrn",	"is correct file magic";
+is $shm->{major},	0,	"is correct major";
+is $shm->{minor},	0,	"is correct minor";
+is $shm->{units},	3,	"is correct number of translation units";
+is $shm->{loc},		40,	"is correct number of translation units";
 
 my ($pid, $ppid, $pgrp) = @{ $shm->{pids} };
 cmp_ok $pid,	'<',	100 * 1000,	"is pid < max pid";