#!/usr/bin/env perl

use strict;
use warnings;

use HTTP::Request;
use Test::More tests => 6;

BEGIN {
    use_ok( 'WWW::Mechanize::Cached' );
}

my $mech = WWW::Mechanize::Cached->new;

my $response = HTTP::Response->new( '200' );

cmp_ok( $mech->positive_cache, '==', 1, "positive cache is ON" );
ok( $mech->_cache_ok( $response ), "200 is always cachable" );
ok( !$mech->_cache_ok( HTTP::Response->new( 404 ) ), "won't cache 404 when positive");

$mech->positive_cache( 0 );
ok( $mech->_cache_ok( $response ), "200 is cachable in negative cache" );
ok( $mech->_cache_ok( HTTP::Response->new( 404 ) ), "will cache 404 when negative");