use strict;
use Test::More tests => 2;
use Storable qw(dclone);

my $orig =
  { a =>
    { b =>
      [ 'c', 'd' ],
      e =>
      [
       [ 'f' ]
      ]
    }
  };

my $new = dclone($orig);

my $delta =
  { a =>
    { e =>
      [
       [ 'g' ]
      ]
    }
  };

augment( $new, $delta );

my $augmented =
  { a =>
    { b =>
      [ 'c', 'd' ],
      e =>
      [
       [ 'g' ]
      ]
    }
  };

is_deeply( $new, $augmented, "augment" );

reduce( $new, $orig );
is_deeply( $new, $delta, "reduce" );