convert checkers stdout/stderr from bytes to string

Author: Andrey Khozov

lib/CS/Model/Checker.pm

@@ -158,8 +158,14 @@ sub _run {
     $h = start $cmd, \undef, \$stdout, \$stderr, 'init', sub { chdir $path->dirname }, $t;
     $h->finish;
   };
+
   $stdout //= '';
   $stdout =~ s/\x00//g;
+  utf8::decode $stdout;
+
+  $stderr //= '';
+  $stderr =~ s/\x00//g;
+  utf8::decode $stderr;
 
   if (length $stdout > MAX_OUTPUT_LENGTH) {
     $self->app->log->warn("Length of STDOUT for '@$cmd' exceeds limit");
@@ -171,7 +177,7 @@ sub _run {
     elapsed   => tv_interval($start),
     exception => $@,
     exit      => {value => $?, code => $? >> 8, signal => $? & 127, coredump => $? & 128},
-    stderr => ($stderr // '') =~ s/\x00//gr,
+    stderr => $stderr,
     stdout => $stdout,
     timeout => 0
   };

t/basic.t

@@ -47,7 +47,7 @@ $db->select(runs => '*', {service_id => 1, team_id => 1})->expand->hashes->map(
   sub {
     is $_->{round},  1,               'right round';
     is $_->{status}, 104,             'right status';
-    is $_->{stdout}, "some error!\n", 'right stdout';
+    is $_->{stdout}, "some error 😉\n", 'right stdout';
   }
 );
 

t/checkers/down.pl

@@ -1,4 +1,4 @@
 #!/usr/bin/perl
 
-print "some error!\n";
+print "some error 😉\n";
 exit 104;