← Back to branch summary

~ubuntu-branches/ubuntu/trusty/horae/trusty

« back to all changes in this revision

Viewing changes to 0CPAN/Pod-Simple-3.03/t/ac_c_extend.t

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Pod-Simple-3.03/t/ac_c_extend.t
1
 
 
2
 
use strict;
3
 
use Test;
4
 
BEGIN { plan tests => 24 };
5
 
 
6
 
#use Pod::Simple::Debug (2);
7
 
 
8
 
ok 1;
9
 
 
10
 
use Pod::Simple::DumpAsXML;
11
 
use Pod::Simple::XMLOutStream;
12
 
print "# Pod::Simple version $Pod::Simple::VERSION\n";
13
 
sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
14
 
 
15
 
my $x = 'Pod::Simple::XMLOutStream';
16
 
sub accept_Q    { $_[0]->accept_codes('Q') }
17
 
sub accept_prok { $_[0]->accept_codes('prok') }
18
 
sub accept_zing_prok { $_[0]->accept_codes('zing:prok') }
19
 
sub accept_zing_superprok { $_[0]->accept_codes('z.i_ng:Prok-12') }
20
 
sub accept_zing_superduperprok {
21
 
  $_[0]->accept_codes('A');
22
 
  $_[0]->accept_codes('z.i_ng:Prok-12');
23
 
}
24
 
 
25
 
 
26
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
27
 
 
28
 
 
29
 
print "# Some sanity tests...\n";
30
 
ok( $x->_out( "=pod\n\nI like pie.\n"),
31
 
  '<Document><Para>I like pie.</Para></Document>'
32
 
);
33
 
ok( $x->_out( "=extend N C Y,W\n\nI like pie.\n"),
34
 
  '<Document><Para>I like pie.</Para></Document>'
35
 
);
36
 
ok( $x->_out( "=extend N C,F Y,W\n\nI like pie.\n"),
37
 
  '<Document><Para>I like pie.</Para></Document>'
38
 
);
39
 
ok( $x->_out( "=extend N C,F,I Y,W\n\nI like pie.\n"),
40
 
  '<Document><Para>I like pie.</Para></Document>'
41
 
);
42
 
 
43
 
 
44
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
45
 
 
46
 
 
47
 
print "## OK, actually trying to use an extended code...\n";
48
 
 
49
 
print "# extending but not accepted (so hitting fallback)\n";
50
 
 
51
 
ok( $x->_out( "=extend N B Y,W\n\nI N<like> pie.\n"),
52
 
  '<Document><Para>I <B>like</B> pie.</Para></Document>'
53
 
);
54
 
ok( $x->_out( "=extend N B,I Y,W\n\nI N<like> pie.\n"),
55
 
  '<Document><Para>I <B><I>like</I></B> pie.</Para></Document>'
56
 
);
57
 
ok( $x->_out( "=extend N C,B,I Y,W\n\nI N<like> pie.\n"),
58
 
  '<Document><Para>I <C><B><I>like</I></B></C> pie.</Para></Document>'
59
 
);
60
 
 
61
 
 
62
 
 
63
 
print "# extending to one-letter accepted (not hitting fallback)\n";
64
 
 
65
 
ok( $x->_out( \&accept_Q, "=extend N B Y,Q,A,bzroch\n\nI N<like> pie.\n"),
66
 
  '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
67
 
);
68
 
ok( $x->_out( \&accept_Q, "=extend N B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
69
 
  '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
70
 
);
71
 
ok( $x->_out( \&accept_Q, "=extend N C,B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"),
72
 
  '<Document><Para>I <Q>like</Q> pie.</Para></Document>'
73
 
);
74
 
 
75
 
 
76
 
 
77
 
print "# extending to many-letter accepted (not hitting fallback)\n";
78
 
 
79
 
ok( $x->_out( \&accept_prok, "=extend N B Y,prok,A,bzroch\n\nI N<like> pie.\n"),
80
 
  '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
81
 
);
82
 
ok( $x->_out( \&accept_prok, "=extend N B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
83
 
  '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
84
 
);
85
 
ok( $x->_out( \&accept_prok, "=extend N C,B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"),
86
 
  '<Document><Para>I <prok>like</prok> pie.</Para></Document>'
87
 
);
88
 
 
89
 
 
90
 
 
91
 
print "# extending to :-containing, many-letter accepted (not hitting fallback)\n";
92
 
 
93
 
ok( $x->_out( \&accept_zing_prok, "=extend N B Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
94
 
  '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
95
 
);
96
 
ok( $x->_out( \&accept_zing_prok, "=extend N B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
97
 
  '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
98
 
);
99
 
ok( $x->_out( \&accept_zing_prok, "=extend N C,B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"),
100
 
  '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>'
101
 
);
102
 
 
103
 
 
104
 
 
105
 
 
106
 
print "# extending to _:-0-9-containing, many-letter accepted (not hitting fallback)\n";
107
 
 
108
 
ok( $x->_out( \&accept_zing_superprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
109
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
110
 
);
111
 
ok( $x->_out( \&accept_zing_superprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
112
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
113
 
);
114
 
ok( $x->_out( \&accept_zing_superprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
115
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
116
 
);
117
 
 
118
 
 
119
 
 
120
 
print "#\n# Testing acceptance order\n";
121
 
 
122
 
ok( $x->_out( \&accept_zing_superduperprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
123
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
124
 
);
125
 
ok( $x->_out( \&accept_zing_superduperprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
126
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
127
 
);
128
 
ok( $x->_out( \&accept_zing_superduperprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"),
129
 
  '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>'
130
 
);
131
 
 
132
 
 
133
 
 
134
 
print "# Wrapping up... one for the road...\n";
135
 
ok 1;
136
 
print "# --- Done with ", __FILE__, " --- \n";
137