[catagits/catbook-code.git] / t / snippet_store / basic.t

use strict;
use warnings;
use Test::More qw(no_plan);
use Test::Exception;

use_ok "LolCatalyst::Lite::SnippetStore";

dies_ok {
  LolCatalyst::Lite::SnippetStore->new;
} 'Create without translator object fails';

my $store = LolCatalyst::Lite::SnippetStore->new(translator => 'DUMMY');

my $num_snips = 3;

ok(
  (my @snip = map $store->create({ text => "snippet $_" }), 1 .. $num_snips),
  'Creates ok'
);

cmp_ok(scalar(@snip), '==', $num_snips, "$num_snips created");

is_deeply(\@snip, [ $store->all ], 'deep snippet check');

foreach my $snip (@snip) {
  my $id = $snip->{id};
  is($snip->{text}, $store->find($id)->{text}, "find by id $id ok");
}
Commit	Line	Data
a90d5246	1	use strict;
	2	use warnings;
	3	use Test::More qw(no_plan);
26fe736a	4	use Test::Exception;
a90d5246	5
	6	use_ok "LolCatalyst::Lite::SnippetStore";
	7
26fe736a	8	dies_ok {
	9	LolCatalyst::Lite::SnippetStore->new;
	10	} 'Create without translator object fails';
	11
	12	my $store = LolCatalyst::Lite::SnippetStore->new(translator => 'DUMMY');
a90d5246	13
	14	my $num_snips = 3;
	15
	16	ok(
	17	(my @snip = map $store->create({ text => "snippet $_" }), 1 .. $num_snips),
	18	'Creates ok'
	19	);
	20
	21	cmp_ok(scalar(@snip), '==', $num_snips, "$num_snips created");
	22
	23	is_deeply(\@snip, [ $store->all ], 'deep snippet check');
	24
	25	foreach my $snip (@snip) {
	26	my $id = $snip->{id};
	27	is($snip->{text}, $store->find($id)->{text}, "find by id $id ok");
	28	}