Fix test failures on windows. GH #11, GH #23

Changes

@@ -2,6 +2,10 @@ Revision history for Perl extension HTML::Tidy.
 
 NEXT
 ====================================
+[FIXES]
+Failing tests on Windows.  Thanks, Klaus Baldermann. (GH #11, GH #23)
+
+
 [INTERNALS]
 Added more tests.  Thanks, Hunter McMillen.
 

t/unicode-nbsp.t

@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 
 use HTML::Tidy;
 
@@ -12,9 +12,12 @@ use Encode;
 my $bytes_string = "\x{c2}\x{a0}"; #UTF8 nbsp
 my $perl_chars   = Encode::decode('utf8',$bytes_string); #perl chars of utf8 byte string
 
-my $expected_after_tidy = " \n"; # HTML::Tidy adds a \n and should convert the nbsp to an HTML entity
-
 my $tidy = HTML::Tidy->new({ show_body_only => 1 });
 
+my $newline = $tidy->clean( '' ); # HTML::Tidy adds a platform dependant "newline"
+like( $newline, qr/^\r?\n?$/, 'Tidy Newline' ); # should be CR or LF or both
+
+my $expected_after_tidy = " $newline"; # HTML::Tidy should convert the nbsp to an HTML entity (and adds a newline)
+
 is( $tidy->clean( $perl_chars ), $expected_after_tidy, 'Perl chars OK' );
 is( $tidy->clean( $bytes_string ), $expected_after_tidy, 'Byte string OK' );