Tidy up to use a regex

bobtfish · Oct 12, 2009 · 76e4048 · 76e4048
1 parent b285ce5
commit 76e4048
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/t/02-JSON-XS.t b/t/02-JSON-XS.t
@@ -45,11 +45,7 @@ ok(
         pretty       => 1
     )
 );
-{
-    my $data = $json->encode( chr 0x10402 );
-    $data =~ s/\n$//s;
-    is( $data, '"\ud801\udc02"' );
-}
+like( $json->encode( chr 0x10402 ), qr/"\\ud801\\udc02"\n?/ );
 ok( $json = JSON::Any->new( allow_nonref => 1, utf8 => 1 ) );
 
 is( $json->encode("Ã¼"), qq["\xc3\xbc\"] );