Mercurial > hg > Gears > Gears
view src/parallel_execution/perlTests/util.t @ 683:ccc17667ffb2
...
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 21 Aug 2020 08:08:43 +0900 |
parents | 49d57e7fce39 |
children | 117c0ef2279f |
line wrap: on
line source
#!/usr/bin/env perl use strict; use warnings; use FindBin; use Test::More; use_ok "Gears::Util"; #use test use Gears::Util; subtest 'file_checking' => sub { eval { Gears::Util->file_checking("nonexistent_file.c") }; ok $@ && like( $@, qr/invalid filepath/ ); my $exists_file = "$FindBin::Bin/README.md"; my $found_file = Gears::Util->file_checking($exists_file); is $found_file, $exists_file; }; done_testing;