commit 6ddd5ed0bbea1598ffa96b36edfbea1839750253
parent 22cf822b0b2ab863fe116c9635b99f83ffbe6b45
Author: Kyle Milz <kyle@0x30.net>
Date: Sat, 27 Feb 2016 19:21:59 -0700
server: get test coverage working again
Diffstat:
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/server/SL/Test.pm b/server/SL/Test.pm
@@ -11,8 +11,10 @@ sub new {
my $perl_args = '';
if ($ARGV[0] eq '-c') {
- $perl_args = '-MDevel::Cover';
+ # Enable test coverage when -c is passed to the test
+ $perl_args = '-MDevel::Cover=-silent,1';
}
+
my $pid = open3(undef, undef, \*CHLD_ERR, "perl $perl_args -T sl -t -p 4729");
$self->{pid} = $pid;
@@ -22,7 +24,6 @@ sub new {
sub readline {
my $self = shift;
-
return readline $self->{CHLD_ERR};
}