citrun

commit c53c446a96ed037be81ebf0b960ec196fe26228b
parent 41b777cd06b930cb08ab3b26aa3432ead093f9e6
Author: Kyle Milz <kyle@windows.krwm.net>
Date:   Thu,  5 Jan 2017 19:57:25 -0800

t: update lib_transunit

Diffstat:
M
t/lib_transunit.t
 | 
14
++++++--------

1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/t/lib_transunit.t b/t/lib_transunit.t
@@ -3,18 +3,16 @@
 #
 use strict;
 use warnings;
-use Test::More tests => 8;
 use t::utils;
+plan tests => 8;
 
-my $tmp_dir = t::tmpdir->new();
+my $dir = setup_projdir();
 
-my $ret = system("$tmp_dir/program 10");
-is $ret >> 8,	0,	"is program exit code 0";
+$dir->run( prog => $dir->workdir . '/program', args => '1', chdir => $dir->curdir );
+is( $? >> 8,	0,	"is instrumented program exit code 0" );
 
-my @procfiles = glob("$ENV{CITRUN_PROCDIR}/program_*");
-is scalar @procfiles,	1,	"is one file in procdir";
-
-my $shm = t::shm->new($procfiles[0]);
+my $shm_file_path = get_one_shmfile( $ENV{CITRUN_PROCDIR} );
+my $shm = t::shm->new( $shm_file_path );
 
 my ($tu1, $tu2, $tu3) = @{ $shm->{translation_units} };
 is	$tu1->{size},	9,	"is translation unit 1 9 lines";