citrun

commit 103768f75ea617b329d952b7e3aeba872fc15a58
parent 761a440312f24d8b0f8573723e52c9dac3298ba5
Author: Kyle Milz <kyle@0x30.net>
Date:   Fri,  9 Sep 2016 22:27:20 -0600

t: remove dependence on Test::Cmd

Diffstat:
M
t/rt_header.t
 | 
6
++----
M
t/rt_translunit.t
 | 
7
++-----

2 files changed, 4 insertions(+), 9 deletions(-)
diff --git a/t/rt_header.t b/t/rt_header.t
@@ -3,14 +3,12 @@
 #
 use strict;
 use warnings;
-use Test::Cmd;
 use Test::More tests => 14;
 use tlib::program;
 use tlib::shm;
 
-my $test_prog = Test::Cmd->new( prog => 'tlib/program/program', workdir => '');
-$test_prog->run( args => "1" );
-is $? >> 8,	0,	'did test program exit 0';
+my $ret = system('tlib/program/program 1');
+is $ret >> 8,	0,	"is program exit code 0";
 
 my $shm = tlib::shm->new();
 is $shm->{major}, 0, "is major correct";
diff --git a/t/rt_translunit.t b/t/rt_translunit.t
@@ -3,15 +3,12 @@
 #
 use strict;
 use warnings;
-use POSIX;
-use Test::Cmd;
 use Test::More tests => 7;
 use tlib::program;
 use tlib::shm;
 
-my $test_prog = Test::Cmd->new( prog => 'tlib/program/program', workdir => '');
-$test_prog->run( args => "10" );
-is $? >> 8,	0,	'is test program exit code 0';
+my $ret = system('tlib/program/program 10');
+is $ret >> 8,	0,	"is program exit code 0";
 
 my $shm = tlib::shm->new();