# Test hyperlinks et al from Pod::ParseUtils

BEGIN {

chdir 't' if -d 't';

@INC = '../lib';

require Test; import Test;

plan(tests => 22);

}

use strict;

use Pod::ParseUtils;

# First test the hyperlinks

my @links = qw{

name

name/ident

name/"sec"

"sec"

/"sec"

http://www.perl.org/

text|name

text|name/ident

text|name/"sec"

text|"sec"

};

my @results = (

"P<name>",

"Q<ident> in P<name>",

"Q<sec> in P<name>",

"Q<sec>",

"Q<sec>",

"Q<http://www.perl.org/>",

"Q<text>",

"Q<text>",

"Q<text>",

"Q<text>",

);

ok(@results,@links);

for my $i( 0..@links ) {

my $link = new Pod::Hyperlink( $links[$i] );

ok($link->markup, $results[$i]);

}

# Now test lists

# This test needs to be better

my $list = new Pod::List( -indent => 4,

-start => 52,

-file => "itemtest.t",

-type => "OL",

);

ok($list);

ok($list->indent, 4);

ok($list->start, 52);

ok($list->type, "OL");

# Pod::Cache

# also needs work

my $cache = new Pod::Cache;

# Store it in the cache

$cache->item(

-page => "Pod::ParseUtils",

-description => "A description",

-file => "file.t",

);

# Now look for an item of this name

my $item = $cache->find_page("Pod::ParseUtils");

ok($item);

# and a failure

ok($cache->find_page("Junk"), undef);

# Make sure that the item we found is the same one as the

# first in the list

my @i = $cache->item;

ok($i[0], $item);

# Check the contents

ok($item->page, "Pod::ParseUtils");

ok($item->description, "A description");

ok($item->file, "file.t");