#!/usr/bin/env perl
package T::MyBlessed;
use Moo;
use overload '""' => 'stringify';
sub stringify {":-P yuck"}
package main;
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::vacuum';
use_ok $pkg;
}
my $res = $pkg->new->fix(
{
arrays => [],
hashes => {},
strings => '',
nested_strings => {nested => ''},
nested_arrays => {arrays => []},
nested_hashes => {hashes => {}},
keep_me => {arrays => [], hashes => {foo => []}, me => 1},
keep_me_2 => [[], [T::MyBlessed->new]],
}
);
is_deeply $res, {keep_me => {me => 1}, keep_me_2 => [[":-P yuck"]]},
"data is vacuumed";
done_testing;