#!/usr/bin/env perl
# Test the If-Modified-Since header
use strict;
use warnings;
use DateTime;
use DateTime::Format::HTTP;
use HTTP::Request::Common;
use HTTP::Status qw( :constants );
use URI;
use Test::More;
# setup library path
use FindBin qw($Bin);
use lib "$Bin/lib";
# make sure testapp works
use ok 'TestApp';
# a live test against TestApp, the test application
use Test::WWW::Mechanize::Catalyst 'TestApp';
my $m = Test::WWW::Mechanize::Catalyst->new;
my $time  = DateTime->now->subtract( minutes => 123 );
my $htime = DateTime::Format::HTTP->format_datetime( $time );
my $uri = URI->new('http://localhost/');
$uri->query_form( 'Last-Modified' => $htime );
my $res;
$res = $m->request( GET $uri, 'If-Unmodified-Since' =>
                       DateTime::Format::HTTP->format_datetime(
                           $time->add( seconds => 1)
                       ) );
ok($res->is_success, "HTTP_OK");
is($res->header('Last-Modified'), $htime,   "Last-Modified");
ok(defined $res->header('Expires'), "Expires");
ok(defined $res->header('ETag'), "ETag");
$m->content_like(qr/Content[ ]Ok/, 'expected text');
$res = $m->request( GET $uri, 'If-Unmodified-Since' => $htime );
ok($res->is_success, "HTTP_OK");
is($res->header('Last-Modified'), $htime,   "Last-Modified");
ok(defined $res->header('Expires'), "Expires");
ok(defined $res->header('ETag'), "ETag");
$m->content_like(qr/Content[ ]Ok/, 'expected text');
$res = $m->request( GET $uri, 'If-Unmodified-Since' =>
                       DateTime::Format::HTTP->format_datetime(
                           $time->subtract( seconds => 2 )
                       ) );
is($res->code, HTTP_PRECONDITION_FAILED, "HTTP_PRECONDITION_FAILED");
is($res->header('Last-Modified'), $htime,   "Last-Modified");
ok(!defined $res->header('Expires'), "no Expires");
ok(defined $res->header('ETag'), "ETag");
done_testing;