#!/usr/bin/perl

use warnings 'FATAL' => 'all';
use strict;
use Test::More;

use WWW::AUR::PKGBUILD;

opendir my $pbdh, 't/PKGBUILDs' or die "opendir: $!";
for my $filename ( grep { -f "t/PKGBUILDs/$_" } readdir $pbdh ) {
    open my $pbfh, '<', "t/PKGBUILDs/$filename" or die "open: $!";
    my $pb = eval { WWW::AUR::PKGBUILD->new( $pbfh ) };
    ok !$@, "Parse ${filename}'s funky PKGBUILD";
    close $pbfh;
}
closedir $pbdh;

done_testing;