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;