view release on metacpan or  search on metacpan

t/kritika.t  view on Meta::CPAN

    _touch_file( "$tempdir/file.txt", 'hello there' );

    like exception { $kritika->validate("$tempdir/file.txt") },
      qr/Cant connect/;
};

subtest 'validate: throws on remote error' => sub {
    my $tempdir = tempdir();

    my $ua = _mock_ua(
        post => sub { { success => 0, status => 404, reason => 'Not found' } }
    );
    my $kritika = _build_kritika(
        base_url => 'http://localhost',
        token    => 'deadbeef',
        root     => $tempdir,
        branch   => 'master',
        revision => 'deadbeef',
        ua       => $ua
    );