The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg;
BEGIN {
    $pkg = 'Catmandu::Fix::include';
    use_ok $pkg;
}

my $object = {};
my $intended_object = {
    name => "Franck",
    first_name => "Nicolas",
    working_place => "University Library of Ghent" ,
    hobbies => [ 'cooking' , 'art' , 'hiking']
};
my $fix_file = "fix-level-1.txt";

is_deeply(
    $pkg->new($fix_file)->fix($object),
    $intended_object,
    "include fix at multiple levels"
);

done_testing 2;