1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -w
# t/basic.t - check PseudoPod formatting codes and directives
BEGIN {
chdir 't' if -d 't';
}
use strict;
use lib '../lib';
use Test::More tests => 12;
use_ok('Pod::PseudoPod') or exit;
my $object = Pod::PseudoPod->new ();
isa_ok ($object, 'Pod::PseudoPod');
is ($object->{'accept_codes'}->{'F'}, 'F', 'standard formatting codes allowed');
for my $code ('A', 'G', 'H', 'M', 'N', 'R', 'T', 'U') {
is ($object->{'accept_codes'}->{$code}, $code, "extra formatting code $code allowed");
}
is ($object->{'accept_directives'}->{'head0'}, 'Plain', 'extra directives allowed');
|
