use warnings;
use Test::More;
use Data::Dumper;
BEGIN {
  use_ok('Proc::ProcessTable');
}
SKIP: {
  $0 = "PROC_PROCESSTABLE_TEST_CMD";
  sleep(1);
  my ($ps) = grep {/^$$\s+/} map { chomp; s/^\s*//; $_ } `ps xww`;
  skip 'Cannot set process name', 1
    unless ($ps && $ps =~ /PROC_PROCESSTABLE_TEST_CMD/);
  $SIG{CHLD} = 'IGNORE';
  my $pid = fork;
  die "cannot fork" unless defined $pid;
  if ($pid == 0) {
    #child
    $0 = '01234567890123456789';
    sleep 10000;
  } else {
    #main
    sleep 1;
    my $t = Proc::ProcessTable->new;
    my ($p) = grep { $_->{pid} == $pid } @{ $t->table };
    like($p->{cmndline}, qr/01234567890123456789/, "modulo 20 commandline bugfix");
    kill 9, $pid;
  }
}
done_testing();