#!/usr/bin/perl -w
# -*- mode: perl; coding: utf-8 -*-
use strict;
use warnings FATAL => qw(all);

use FindBin;
use lib "$FindBin::Bin/..";

use YATT::Test;

unless (eval {require WWW::Mechanize}) {
  plan skip_all => 'WWW::Mechanized is not installed.'; exit;
}

my $mech = new WWW::Mechanize(agent => "YATT UnitTest by $ENV{USER}");

# XXX: Hard coded.
# /var/www/html/yatt/cgi-bin
# /var/www/html/yatt/test
unless (-e "/var/www/cgi-bin/yatt.cgi"
	and -d "/var/www/cgi-bin/yatt.docs/test") {
  plan skip_all => 'yatt.cgi and testapp is not installed.'; exit;
} elsif (not -d "/var/www/manual"
         or not $mech->get(my $man_url = "http://localhost//manual/")) {
  plan skip_all => "Can't get $man_url"; exit;
} else {
  plan qw(no_plan);
}

my $check = sub {
  my ($url, $is, $title) = @_;
  isnt my $res = $mech->get($url), undef, "$title fetch";
  SKIP: {
     skip "Can't fetch.", 1 unless $res;

     my $content = $mech->content;
     # To hide printenv.
     $content =~ s{<table[^>]*>.*</table>\s*}{}xs if $content;

     unless (ref $is) {
       is $content, $is, $title;
     } elsif (ref $is eq 'Regexp') {
       like $content, $is, $title;
     } else {
       die "Unknown";
     }
    }
};

{
  $check->("http://localhost/cgi-bin/yatt.cgi"
	   , "None of PATH_TRANSLATED and PATH_INFO is given.\n"
	   , "yatt.cgi returns default error message");
}

{
  $check->("http://localhost/cgi-bin/yatt.cgi/test/y1hello.html"
	   , "<h2>Hello</h2>\nDirect mode.\n"
	   , "hello");
}