#!/usr/bin/perl

use Data::Compare qw();
use Storable qw(nfreeze);
use Test::More qw(no_plan);

my $data1 = ["f\xfcbar"];
my $data2 = [substr("f\xfcbar\x{0100}", 0, -1)];

is_deeply($data1, $data2, "is_deeply test");
ok(Data::Compare::Compare($data1, $data2), "Data::Compare");
ok(nfreeze($data1) eq nfreeze($data2), "storable serialized");