← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libpod-simple-perl/trusty

« back to all changes in this revision

Viewing changes to t/fcodes.t

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu
  • Date: 2010-05-01 23:28:32 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20100501232832-uhsd4zwmusp12z65
Tags: 3.14-1
* New upstream release
* Use new 3.0 (quilt) source format
* Standards-Version 3.8.4 (no changes)
* Add a patch to fix POD spelling errors
* Update copyright information to DEP5 format

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/fcodes.t
7
7
 
8
8
use strict;
9
9
use Test;
10
 
BEGIN { plan tests => 21 };
 
10
BEGIN { plan tests => 23 };
11
11
 
12
12
#use Pod::Simple::Debug (5);
13
13
 
81
81
 
82
82
print "# Without any nesting, but with Z's, and odder whitespace...\n";
83
83
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c  >>>>B<< d \t >>X<<\ne >>\n"),
84
 
  '<Document><Para><F>aZ&#60;&#62;</F><C>Z&#60;&#62;b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
 
84
  '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
85
85
);
86
86
 
87
87
print "# With nesting and Z's, and odder whitespace...\n";
88
88
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c  >>>>\n"),
89
 
 "<Document><Para><F>aZ&#60;&#62;</F><C>Z&#60;&#62;bZ&#60;&#62;B&#60;&#60; d &#62;&#62;X&#60;&#60; e &#62;&#62;</C><I>c</I></Para></Document>"
 
89
 "<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>"
90
90
);
91
91
 
92
 
print "# Regression https://rt.cpan.org/Ticket/Display.html?id=12239\n";
 
92
print "# Regression https://rt.cpan.org/Ticket/Display.html?id=55602 (vs 12239)\n";
93
93
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< foo->bar >>>\n"),
94
94
 '<Document><Para><C>foo-&#62;bar</C></Para></Document>'
95
95
);
96
96
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<foo> >>>\n"),
97
 
 '<Document><Para><C>C&#60;foo&#62;</C></Para></Document>'
 
97
 '<Document><Para><C><C>foo</C></C></Para></Document>'
98
98
);
99
99
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<<foo>> >>>\n"),
 
100
 '<Document><Para><C><C>&#60;foo</C>&#62;</C></Para></Document>'
 
101
);
 
102
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< CZ<><<foo>> >>>\n"),
 
103
 '<Document><Para><C>C&#60;&#60;foo&#62;&#62;</C></Para></Document>'
 
104
);
 
105
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< CE<lt><foo>> >>>\n"),
100
106
 '<Document><Para><C>C&#60;&#60;foo&#62;&#62;</C></Para></Document>'
101
107
);
102
108