CPAN::Groonga

is $s->bag('foo')->prop,    'val',  "options are passed to bag";
isnt $s->bag('foo')->store, 'junk', "store can't be overriden";
isnt $s->bag('foo')->name,  'junk', "name can't be overriden";

# defa

$data = $b->add({});
is $data->{_id},  undef;
is $data->{__id}, undef;
ok exists($data->{my_id});
isnt $b->get($data->{my_id}), undef;
$b->delete($data->{my_id});
is $b->get($data->{my_id}), undef;

#

$data = $b->add({});
is $data->{_id},  undef;
is $data->{__id}, undef;
ok exists($data->{my_id});
isnt $b->get($data->{my_id}), undef;
$b->delete($data->{my_id});
is $b->get($data->{my_id}), undef;

#

/a/../weird/path", "./../../isnt/../it"
    ),
    File::Spec->catfile("/it"), 'join_path';
is Catmandu::Util::normalize_path(
    "/this/../is/../a/../weird/path/../../isnt/../it"),
    File::Spec->c

transaction ok again";
$bag->drop;

$bag->add_many($data);
is $bag->count,   2, "Count bag size";
isnt $bag->count, 0, "Count bag size";

is_deeply $bag->first, {_id => '123', name => 'Patrick', age =

.";
is $bag->count, 1, "Count bag size";
$bag->delete_all;
is $bag->count,   0, "Count bag size";
isnt $bag->count, 1, "Count bag size";

$bag->add({_id => '123', foo => "bar"});

my $bag2 = $store->b

 $pkg;
}

my $data   = {foo => 'bar'};
my $cloned = $pkg->new->fix($data);

is_deeply $data, $cloned, "cloned data is equal";
isnt $data,      $cloned, "cloned data is another object";

done_testing;

sts($data->{my_id});
is $data->{my_version}, 1;
$data->{name} = 'Camel';
$store->bag->add($data);
isnt $store->bag->version_bag->get("$data->{my_id}.1"), undef;

$store = Catmandu::Store::Hash->new(