use Test::More;
plan tests=>3;


$str='"[{\\"xxxxx\\":{\\"xxxxx:6\\":\\"Het xxxxx xxxxxx Bad xxxxx is xxxxxxxxx in het hart van de xxxxxxxxxxxx xxxxx xxxxxxxxx. Dit 5-xxxxxxxxxxxx xxxxx een xxxxxxxxxxxx spa, xxxxxxxxx luxe, xxxxxxxxxx xxxxxx, en 8 xxxxxxxxxxxxxx xxxxxxxxxxx.\\\\n\\\\nHet xxxxx xxxxxx Bad xxxxx xxxxxxx uit het xxxxx xxxxx xxxxxxxxxx & Spa xxxxxx en het xxxxx xxxxx Hof xxxxx, en xxxxx een xxxxx xxxxx van luxe xxxxxx en xxxxxx. Alle xxxxxx zijn xxxxxxxx van een xxxxxxxxxx-tv, een dvd-xxxxxx met een mp3-xxxxxxxxxxx, en een xxxxx bar met een xxxxxxxxx-xxxxxxxx en een xxxxxxxxxx.\\\\n\\\\nIn xxxxxx zijn de xxxxxxxxxx xxxxxxxx met 58 xxxxxxxxxxx-xxxxxx.\\\\n\\\\nHet xxxxxxxxxxxxxxx To B. xxxxx een xxxxxxxxxxx van 5500 m\\x{b2}, en is xxxxxxxxx met een xxxxxxxxxxxxxxx met xxxxxxxxx-xxxxxxxxxx, een priv\\x{e9}spa van 100 m\\x{b2} xxxxx, en xxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxx.\\\\n\\\\nIn 45 xxxxxxx xxxxxx xxxxxxx u de xxxxxxxxxx xxxxxxxxxx voor priv\\x{e9}jets en op xxxxxxx 5 xxxxxxx xxxxxxx xxxxxxx zich de xxxxxxxxxx Bad xxxxx voor xxxxxxxxxxx. Het xxxxx xxxxxxxxxxx uw xxxxxx reis xxxxxx elke xxxxxxx in xxxxxx, xxxxxxxxx xxxxxxxxx met luxe xxxxxxxxxx van xxxxxxxx Benz.\\",\\"xxxxx:6\\":\\"TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST\\\\r\\\\nA xxxxx is an xxxxxxxxxxxxx that xxxxxxxx paid xxxxxxx, xxxxxxx on a xxxxx-term xxxxx. The xxxxxxxxx of xxxxx xxxxxxxxxxxxx, in xxxxx past, xxxxxxxxxx only of a room with a bed, a xxxxxxxx, a xxxxx xxxxx and a xxxxxxxxx has xxxxxxx been xxxxxxxx by xxxxx with xxxxxx xxxxxxxxxx, xxxxxxxxx en-xxxxx xxxxxxxxx and air xxxxxxxxxxxx or xxxxxxx xxxxxxx.\\\\r\\\\n\\\\r\\\\xxxxx TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST\\",\\"xxxxx:6\\":\\"xxxxx xxxxxxxx is xxxxxxxx xxxxxxx in de xxxxx xxxxxxxxxxx-xxxxxx. Het xxxxx een xxxxxx met een xxxxxxxxxxx xxxxxxxx over xxxxxx xxxxxxxxxxxxx. Er is xxxxxx WiFi xxxxxxxxxxx.\\\\n\\\\xxxxxx xxxxxxxx is in 2011 xxxxxxxxxxx. De xxxxxx xxxxxx xxxxxx een xxxxx xxxxxx met xxxxxxxx op het xxxxxxx.\\\\n\\\\xxxxxxx xxxxxx xxxxxxxxxxxx van het xxxxxxxxxxxxxxx van het xxxxx. Het ligt xxxxx de xxxxxxxx en u hebt er ook xxxxxxx tot xxxxxxxx. De xxxxxx xxxxxxx spa xxxxxx uit tot xxxxxxxxxxx. Op xxxxxxx kan de spa ook voor xxxxxxxxx xxxxxxx xxxxxx xxxxxxxxxxxx.\\\\n\\\\nHet xxxxxxxxxx van het xxxxxxxx xxxxx xxxxx een xxxxxxxx xxxxxxxxxx en xxxxxxxx xxxxxxxxx xxxxxxxxx en xxxxxxxxxxxxxx uit xxxxxxxxxxxxx.\\\\n\\\\xxxxxx xxxxxxxx ligt op 940 xxxxx xxxxx de xxxxxxxxxx. Met de auto is het 10 xxxxxxx xxxxxx naar xxxxx. De bus doet er 5 xxxxxxx xxxxxx over. Het is niet meer dan 10 xxxxxxx xxxxxx van het xxxxx naar het xxxxxxxxx xxxxxx. Met het xxxxxxxx xxxxxxx doet u er 15 xxxxxxx over. xxxxx xxxxxxxx xxxxx xxxxxx xxxxxxxxxxxxxxxxxx.\\",\\"xxxxx:6\\":\\"Het xxxxxx xxxxx xxxxxx is xxxxxxx in het xxxxxxx van Bad xxxxx, op xxxxxxx een xxxxxxxxx xxxxxxx van de xxxxxxxx spa xxxxxx.\\\\n\\\\xxxxx xxxxxx zijn zeer ruim en xxxxxx een xxxxxxxxxxx xxxxxxxx op de xxxxx. Elke xxxxx is xxxxxxxx van een xxxxxxx en een thee-/xxxxxxxxxxxxxxxxx.\\\\n\\\\nHet xxxxxx xxxxx xxxxxx is xxxxxx xxxxxxxxx met het xxxxxxxx Bad xxxxx en xxxxx xxxxxxxx xxxxx en een xxxxx xxxxx aan xxxxxxxx op xxxxxxxx.\\\\n\\\\nU kunt xxxxxxxx van xxxxxxxxx xxxxxxxxxxxxxx in het xxxxxxxxxx Im Park of een glas wijn uit de xxxxxx xxxxxxxxxxx in de xxxxxx xxxxxx.\\\\n\\\\nHet xxxxxxxxxxxx van Bad xxxxx xxxxxxx zich op 1 km xxxxxxx. Op xxxxxxx xxxxxx xxxxxx van het xxxxxx xxxxx xxxxxxxxxx xxxxxx naar het xxxxxxxxxxx. De xxxxxxxxxx van Z\\x{fc}rich ligt op xxxxxxx 1 uur xxxxxx.\\",\\"xxxxxx:6\\":\\"xxxxxxx Au ligt aan de rand van xxxxx, op xxxxxxx 10 xxxxxxx xxxxx van het xxxxxxx. Het xxxxx xxxxx xxxxxx met xxxxx en xxxxxxxx xxxxxxxxxxxx en xxxxxxxxxxxxxx.\\\\n\\\\nIn het hele pand is xxxxxx WiFi xxxxxxxxxxx.\\\\n\\\\nDit xxxxxxx xxxxxxxx over een xxxxxxxxxx waar xxxxxxxxx xxxxxxxxx xxxxxxxxxx xxxxxx. Met mooi weer xxxxxx de xxxxxx op het xxxxxx van hun xxxxxxxxxx xxxxxxxx. Op xxxxxxx xxxxxx er xxxxxxxxx xxxxxxxxxxxxx xxxxxx.\\\\n\\\\xxxxxxxx Au ligt op xxxxxxxxxxx van het xxxxxxxxxxx en het xxxxxxxxxxxx van xxxxxxxxxxxxx. Het xxxxxxxxxxxxxxxxx is te voet in 5 xxxxxxx te xxxxxxxx. Het xxxxxxxxxxxxxxx xxxxxxx van xxxxx kan xxxxxx xxxxxxx in 5 xxxxxxx xxxxxx. Er is xxxxxx xxxxxxxxxxxxxxxxxx xxxxxxxxxxx bij het xxxxx.\\",\\"xxxxx:6\\":\\"Het luxe xxxxx xxxxxxxxx is xxxxxx xxxxxxxxx en ligt xxxxxxxx in een xxxxxxxxxxxxxxxxx in xxxxx, op xxxxxxx een paar xxxxxxx xxxxx van het xxxxxxx van de stad.\\\\n\\\\nHet xxxxx is het xxxxxx xxxxxxxxxxxx voor xxxxxxxxx xxxxxxxxxx, het xxxxxxxx van xxxxxxxxxxxxxxxxxxx en voor xxxxxxxxx xxxxxxxxxxxxx.\\\\n\\\\nMet een xxxxx xxxxxxxx xxxxxx, 2 xxxxxxx, xxxxxxxxxx en xxxxxxxx xxxxxxxxxx xxxxxxxxxxxxx en xxxxxx een xxxxxxx xxxxxxxxxxxx xxxxx dit xxxxxxxx xxxxx xxxxx xxxxxxx als alle xxxxxx xxxxxxxx voor een kort of lang xxxxxxxx.\\\\n\\\\xxxxx xxxxx in het xxxxx xxxxxxxxx is xxxxxxxx van luxe xxxxxxxxxx. De xxxxxx xxxxxx en xxxxxxxxx xxxxxx zijn xxxxxxxxx met xxxxxxxxxxxxxxx. xxxxxxx xxxxxx xxxxxx xxxxxxxxxxxx, een xxxxxxxxx en xxxxxxx met een xxxxxxxxxxxx xxxxxxxx op de xxxxx.\\",\\"xxxxxx:6\\":\\"xxxxx xxxxxxxx am xxxxxxx kunt u xxxxxxxxxxx xxxxxx of met de bus naar het xxxxxxx van xxxxx in xxxxxxxxxxxxx. Het xxxxx xxxxxx xxxxxxx tot het xxxxxxx, xxxxxx xxxxxxxxxxxxxxxxxx en er is xxxxxx WiFi.\\\\n\\\\xxxxx xxxxxx in xxxxxxxx am xxxxxxx xxxxxx een xxxxx xxxxxxxx en een xxxxxx.\\\\n\\\\nDe xxxxx is xxxxxxxxxxx op xxxxxxxx, xxxxx u er in xxxxxx xxxxxxx van kunt xxxxxxxx. Er xxxxx xxxxxxx xxxxxxx\\x{eb}le oli\\x{eb}n tot uw xxxxxxxxxxx.\\\\n\\\\xxxxxxx xxxxxxx kunt u xxxxxxxx van het xxxxxxxxxxxxx. Een xxxxx xxxxxx is de xxxxxx plek om te xxxxxxxxxx xxxxxxx de xxxxxxx xxxxxxx.\\",\\"xxxxx:6\\":\\"xxxxx Real ligt in het xxxxxxx van xxxxx. Het is een xxxxxxxxxx van de xxxxxxxx xxxxxxx & xxxxxxxx xxxxx xxxxxxxxx en xxxxx een xxxxxx xxxxxxxxxxxxxxxxx met een xxxxxxx in de xxxxx. Daar xxxxxxx zich ook een xxxxxx.\\\\n\\\\nHet xxxxx xxxxxxxx over xxxxxxx en xxxxxxxxxxxx xxxxxx die xxxxxxxx xxxxxxx xxxxxxxxxxxxx xxxxxx. Er is xxxxxx WiFi in alle xxxxxx.\\\\n\\\\xxxxxxxx de xxxxxxx in het xxxxxxx van de stad kunt u xxxxxxxx xxxxxxxxxx van het xxxxx xxxxxx aan xxxxxxxxx xxxxxxxxxxxx. Er zijn xxxxxxxxxxxx xxxxxxxxxxxxx xxxxx of een xxxxxxx die een xxxxxx meer dan xxxxx zijn.\\",\\"xxxxx:6\\":\\"Het Park-xxxxx xxxxxxxxx is een xxxxx en xxxxxxxxxx xxxxxx & xxxxxxxx-xxxxx, xxxxxxx door xxxxx priv\\x{e9}xxxxxxx.\\\\n\\\\nDe xxxxxxxxxx xxxxxxx in het hart van xxxxxxxxxxxxx xxxxx van Park-xxxxx xxxxxxxxx een xxxxxx plek om u te xxxxxxxxxx. U zult zich xxxxxx op uw xxxxx xxxxxx in de xxxxxxxxxxxxxx xxxxx die xxxxxxxxx xxxxxxxxx xxxxxxxxxx met xxxxxxxxxxxxxxx. Wij xxxxxxx veel xxxxxx aan xxxxxxxxxxxx xxxxxxxx.\\\\n\\\\nHet xxxxx xxxxx een xxxxxxxxxxxx xxxxxx die al vele xxxxxxx xxxxxxxx xxxxx. Laat u zich xxxxxxxxx door onze xxxxxxxxx xxxxxxxxx en xxxxxxxxxx xxxxxxxxxxxxx xxxxxx.\\",\\"xxxxxx:6\\":\\"De Esos xxxxx xxxxxx ligt xxxxx bij de xxxxxx xxxxxx en de xxxxx in Bad xxxxx, op 5 xxxxxxx xxxxx van het xxxxxx xxxxxxx Spa. Het xxxxx xxxxx xxxxxx WiFi en xxxxxx xxxxxxxxxxxxxxxxxx.\\\\n\\\\xxxxx xxxxxx xxxxxx een xxxxx xxxxxxxx en zijn xxxxxxxxx met xxxxxxx xxxxxxx, een xxxxxxxxx, een xxxxx en xxxxxxx.\\\\n\\\\nIn het xxxxxxxxxx kunt u xxxxxxxx van de xxxxxx xxxxxx.\\\\n\\\\nDe Esos xxxxx xxxxxx is xxxxxxx in het hart van de xxxxxxxxxxxxx xxxxxxxxx.\\",\\"xxxxxx:6\\":\\"xxxxxx from 1380, this xxxxxxxx 4-star xxxxx is set xxxxxx xxxxxxxxx in xxxxxxxxxxxxx\\x{2019}s xxxxxxx city of xxxxx. The xxxxxx is just a 3-xxxxxx walk away. Free Wi-Fi is xxxxxxxxx.\\\\n\\\\xxxxx room at xxxxxxx L\\x{f6}wen is xxxxxxxxxxxx xxxxxxxx and xxxxxxxx xxxxxxxxx TV, a xxxxxxx, xxxxxx xxxxxx, and a xxxxxxxx.\\\\n\\\\nThe xxxxxxxxxx xxxxxx xxxxxxxxxxxxx xxxxxxxxxxxx and xxxxxxxxxxxxx xxxxxxx, as well as a xxxxx xxxxxxxxx of fine xxxxx. Some xxxxx come from xxxxx L\\x{f6}wen\\x{2019}s own xxxxxxxxx. In xxxxxx, xxxxxx can dine on the xxxxxxx.\\\\n\\\\xxxxx xxxxxxx xxxxxxx is xxxxxxxxx at xxxxx xxxxxxx L\\x{f6}wen.  The xxxxx A13 xxxxxxxx can be xxxxxxx in a 15-xxxxxx xxxxx. xxxxx xxxxx xxxxxxx is 10 xxxxxxx away.\\"},\\"todo\\":{\\"xxxxx:6\\":1}}]"';
use Data::Undump qw(undump);
use Data::Dumper;
#print $str,"\n";
my $e_ret= eval($str);
is($@||"", "");
my $u_ret= undump($str);
is($@||"", "");
ok($e_ret eq $u_ret,"string are the same as expected (uncorrupted)");