view release on metacpan or  search on metacpan

t/11_cwb_file.t  view on Meta::CPAN

  test_read_write_file(".gz", 0); # 1-argument form, T16
  test_read_write_file(".gz", 1); # 2-argument form
}
SKIP: {
  skip "bzip2 program not installed", 2 unless $have_bz2;
  test_read_write_file(".bz2", 0); # 1-argument form, T18
  test_read_write_file(".bz2", 1); # 2-argument form
}

## test that reading non-existent compressed file fails immediately
eval { CWB::OpenFile("data/files/does_not_exist.gz") };
like($@, qr/does not exist/, "error condition when opening non-existent .gz file"); # T21

## check if specified tool is available in user's path
sub is_available {
  my $cmd = shift;
  my $ok = system "$cmd 2>/dev/null | grep ok >/dev/null";
  return $ok == 0;
}

## try to read a known compressed or uncompressed file

t/13_cwb_shell.t  view on Meta::CPAN

our $N = @lines;
our $ok = $N > 6 && grep {/Makefile\.PL/} @lines;
ok($ok, "capturing output of shell command (with plausibility checks)"); # T2

$errlvl = eval {
  CWB::Shell::Cmd("'$^X' -e 'print STDERR \"THIS LINE SHOULD BE SHOWN AS A WARNING.\\n\"'"); # $^X = perl binary
};
ok(defined $errlvl, "don't die from warning message"); # T3
is($errlvl, 3, "recognise warning message on STDERR (level 3 error)"); # T4

eval { CWB::Shell::Cmd("./data/does_not_exist -flag") };
like($@, qr/SHELL CMD '.*' FAILED/, "failed shell command (nonexistent program)"); # T5