1b39c5158Smillertuse strict; 2256a93a4Safresh1use warnings; 3*5486feefSafresh1use Test::More tests => 9; 4*5486feefSafresh1 5*5486feefSafresh1#use Pod::Simple::Debug (2); 6b39c5158Smillert 7256a93a4Safresh1BEGIN { 8256a93a4Safresh1 require FindBin; 9256a93a4Safresh1 unshift @INC, $FindBin::Bin . '/lib'; 10256a93a4Safresh1} 11*5486feefSafresh1use helpers; 12b39c5158Smillert 13b39c5158Smillertuse Pod::Simple::DumpAsXML; 14b39c5158Smillertuse Pod::Simple::XMLOutStream; 15b39c5158Smillertprint "# Pod::Simple version $Pod::Simple::VERSION\n"; 16b39c5158Smillert 17*5486feefSafresh1is( Pod::Simple::XMLOutStream->_out("=head1 =head1"), 18b39c5158Smillert '<Document><head1>=head1</head1></Document>' 19b39c5158Smillert); 20b39c5158Smillert 21*5486feefSafresh1is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"), 22b39c5158Smillert '<Document><head1>=head1</head1></Document>' 23b39c5158Smillert); 24b39c5158Smillert 25*5486feefSafresh1is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"), 26b39c5158Smillert '<Document><head1>=head1</head1></Document>' 27b39c5158Smillert); 28b39c5158Smillert 29*5486feefSafresh1is( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"), 30b39c5158Smillert '<Document><head1>=head1</head1></Document>' 31b39c5158Smillert); 32b39c5158Smillert 33*5486feefSafresh1&is(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n"); 34b39c5158Smillert 35*5486feefSafresh1&is(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n"); 36b39c5158Smillert 37*5486feefSafresh1&is(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); 38*5486feefSafresh1&is(e "\n=pod\n\nCha\tcha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); 39*5486feefSafresh1&is(e "\n=pod\n\nCha\ncha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); 40