#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;

use Test::More  tests => 3; #subtests

use_ok "Gears::Util"; #use test

use Gears::Util;

subtest 'file_checking' => sub {
  plan tests => 3;

  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;
};

subtest 'parse_interface' => sub {

  subtest 'invalid_case' => sub {
    plan tests => 2;

    my $invalid_interface = "$FindBin::Bin/invalid_interface.h";

    local $SIG{__WARN__} = sub {
      my $msg = shift; like( $msg, qr/\[WARN] invalid interface name at $invalid_interface/);
    };

    my $res = Gears::Util->parse_interface($invalid_interface);
    is $res, undef;
  };

};

done_testing;