view release on metacpan or  search on metacpan

t/01-store.t  view on Meta::CPAN

#!/usr/bin/env perl

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

my $pkg;
BEGIN {
    $pkg = 'Catmandu::Store::CHI';
    use_ok $pkg;
}
require_ok $pkg;

my $data = [
   {_id => '123', name=>'Patrick',age=>'39'},
   {_id => '321', name=>'Nicolas',age=>'34'},
];

my $store = $pkg->new();
my $bag = $store->bag;
my @method = qw(to_array each take add add_many count slice first rest any many all tap map reduce);
can_ok $bag, $_ for @method;

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

is_deeply $bag->get('123'), {_id => '123', name=>'Patrick', age=>'39'}, "Data package 123 ok.";

is_deeply $bag->get('321'), {_id => '321', name=>'Nicolas',age=>'34'}, "Data package 321 ok.";

$bag->delete('123');

is_deeply $bag->first, {_id => '321', name=>'Nicolas',age=>'34'}, "Data package 321 still ok.";
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->bag;
is $bag2->count , 1 , "Bags stay alive";

my $bag3 = $store->bag('foo');
ok ! $bag3->get('123') , "foo doesnt have 123";

done_testing 27;