#!/usr/bin/perl -Tw
use strict;

use Test::More;
use Search::Circa::Indexer;
$|=1;

$ENV{PATH}=''; $ENV{ENV}='';
my @lu = qw!http://www.yahoo.fr file:///usr/share/ ftp://ftp.oleane.fr/
            https://www.totor.com http://localhost?toto=cgi$cavapasnon!;
my @lext = qw/doc zip ps gif jpg gz pdf png deb xls ppt GIF css js wav mid/;
my $nb = $#lext+2 + ($#lu+1)*2;

plan tests => $nb;

  #
  # Search::Circa::Indexer
  #
  my $circa = new Search::Circa::Indexer;
  $circa->{PARSER} = new Search::Circa::Parser($circa);
  my $id = 1;

  #$circa->{DEBUG}=4;
  my %url = 
    (
     'url'              => 'http://www.1001cartes.com/perso/',
     'local_url'        => 'file://usr/local/apache/htdocs',
     'browse_categorie' => '1',
     'niveau'           => '0',
     'categorie'        => '0',
     'titre'            => 'page test',
     'description'      => 'une page de test',
     'langue'           => 'fr',
     'last_check'       => '0000-00-00',
     'last_update'      => '0000-00-00',
     'valide'           => 1,
     'parse'            => 0,
     'id'               => 1,
    );

  #
  # Search::Circa::Parser
  #
  $circa->set_host_indexed($url{url});
  foreach (@lext) {
    ok (!$circa->Parser->check_links("a", "http://$url{url}/toto.$_"),
	"Search::Circa::Parser->check_links $_");
  }

SKIP: {
  skip('No advanced test asked', ($#lu+1)*2 +1)
    if (! -e ".t");

  open(F,".t"); $circa->{_DB} = <F>; close(F);
  ok( $circa->connect, "Search::Circa::Indexer->connect");

  foreach my $e (@lu) {
    my %url2 = %url;
    $url2{'url'} = $e;
      $url2{'id'} = $circa->URL->add($id,%url2);
    ok( $url2{'id'}, "Search::Circa::url->add $e");
    my @l = $circa->Parser->look_at({ url =>$url2{'url'},
				      idc => $url2{'id'},
				      idr => $id});
    ok (@l , "Search::Circa::Parser->look at defined $e");
  }
}