use Test::Spec;

use App::autotest::Test::Runner::Result;
use TAP::Parser::Aggregator;

use constant SOME_POSITIVE_INTEGER => 42;

describe 'a test runner result' => sub {
    it 'tells if there were failures' => sub {
        my $harness_result=TAP::Parser::Aggregator->new;
        $harness_result->stubs(failed => SOME_POSITIVE_INTEGER);

        my $result=App::autotest::Test::Runner::Result->new(
            harness_result => $harness_result);

        ok $result->has_failures;
    };
};

runtests unless caller;