#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Catmandu::Store::Hash;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Plugin::Datestamps';
use_ok $pkg;
}
require_ok $pkg;
my $store = Catmandu::Store::Hash->new(bags => { data => { plugins => [qw(Datestamps)] } });
ok $store->does('Catmandu::Store') , 'create Catmandu-Store with Datestamps plugin';
ok $store->bag->add( { _id => '001' , name => 'Penguin' } ) , 'store something';
ok $store->bag->get( '001' ) , 'get 001';
ok $store->bag->get( '001' )->{date_created} , 'has date_created';
ok $store->bag->get( '001' )->{date_updated} , 'has date_updated';
my $created = $store->bag->get( '001' )->{date_created};
my $updated = $store->bag->get( '001' )->{date_updated};
my $obj = $store->bag->get( '001' );
$obj->{name} = 'John';
sleep 2;
ok $store->bag->add( $obj ) , 'update something';
ok $store->bag->get( '001' )->{date_updated} , 'has date_updated';
ok $store->bag->get( '001' )->{date_updated} ne $updated , 'dates change';
is $store->bag->get( '001' )->{date_created} , $created , 'but created dates dont change';
done_testing 11;