Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
InputObjects.t	3.78 KB	-r--r--r--	2014-12-27 11:48
Select.t	2.06 KB	-r--r--r--	2014-12-27 11:48
Usage.t	3.14 KB	-r--r--r--	2014-12-27 11:48
utils.t	1.51 KB	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -w
# Test hyperlinks et al from Pod::ParseUtils

use Test::More tests => 22;

use strict;
use Pod::ParseUtils;

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>",
	      );

is(@results, @links, 'sanity check - array lengths equal?');

for my $i( 0..@links ) {
  my $link = new Pod::Hyperlink( $links[$i] );
  is($link->markup, $results[$i], "test hyperlink $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);

is($list->indent, 4);
is($list->start, 52);
is($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",
 );

my $item = $cache->find_page("Pod::ParseUtils");
ok($item, 'found item of this name');

is($cache->find_page("Junk"), undef, 'expect to find nothing');

my @i = $cache->item;
is($i[0], $item, 'item we found is the same one as the first in the list');

# Check the contents
is($item->page, "Pod::ParseUtils");
is($item->description, "A description");
is($item->file, "file.t");