File Coverage

blib/lib/Test/XS/Check.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	36	36	100.0

package Test::XS::Check;

use strict;
use warnings;

our $VERSION = '0.01';

use Test2::API qw( context );
use XS::Check 0.07;

our @EXPORT_OK = qw( xs_ok );

use Exporter qw( import );

sub xs_ok {
    my $file = shift;

    my $context = context();

    my @errors;
    my $check = XS::Check->new( reporter => sub { push @errors, {@_} } );
    $check->check_file($file);

    $context->ok( !@errors, "XS check for $file" );
    if (@errors) {
        $context->diag("$_->{message} at line $_->{line}") for @errors;
    }
    $context->release;

    return !@errors;
}

1;

# ABSTRACT: Test that your XS files are problem-free with XS::Check

__END__