← 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/chunking.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/chunking.t
1
 
 
2
 
#use Pod::Simple::Debug (2);
3
 
 
4
 
use strict;
5
 
use Test;
6
 
BEGIN { plan tests => 11 };
7
 
 
8
 
 
9
 
ok 1;
10
 
 
11
 
use Pod::Simple::DumpAsXML;
12
 
use Pod::Simple::XMLOutStream;
13
 
print "# Pod::Simple version $Pod::Simple::VERSION\n";
14
 
sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
15
 
 
16
 
ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"),
17
 
    '<Document><head1>=head1</head1></Document>'
18
 
);
19
 
 
20
 
ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"),
21
 
    '<Document><head1>=head1</head1></Document>'
22
 
);
23
 
 
24
 
ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"),
25
 
    '<Document><head1>=head1</head1></Document>'
26
 
);
27
 
 
28
 
ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"),
29
 
    '<Document><head1>=head1</head1></Document>'
30
 
);
31
 
 
32
 
&ok(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n");
33
 
 
34
 
&ok(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n");
35
 
 
36
 
&ok(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
37
 
&ok(e "\n=pod\n\nCha\tcha  cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
38
 
&ok(e "\n=pod\n\nCha\ncha  cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
39
 
 
40
 
print "# Wrapping up... one for the road...\n";
41
 
ok 1;
42
 
print "# --- Done with ", __FILE__, " --- \n";
43