[scpubgit/Commentry.git] / t / comment_store.t

use strictures 1;
use Test::More;
use aliased 'App::Commentry::CommentStore';
use aliased 'App::Commentry::Comment';

my $store = CommentStore->new(base_dir => 't/var/exstore');

is_deeply(
  [ $store->get({ path => 'not/there' })->flatten ],
  [], 'Nonexistent set is empty'
);

is_deeply(
  [ $store->get({ path => 'one/two/three' })->flatten ],
  [ map Comment->new({ title => "Title $_", body => "Body $_" }), 1, 2 ],
  'Existing set loads ok'
);

done_testing;
Commit	Line	Data
4628d9c9	1	use strictures 1;
	2	use Test::More;
	3	use aliased 'App::Commentry::CommentStore';
	4	use aliased 'App::Commentry::Comment';
	5
	6	my $store = CommentStore->new(base_dir => 't/var/exstore');
	7
	8	is_deeply(
	9	[ $store->get({ path => 'not/there' })->flatten ],
	10	[], 'Nonexistent set is empty'
	11	);
	12
	13	is_deeply(
	14	[ $store->get({ path => 'one/two/three' })->flatten ],
	15	[ map Comment->new({ title => "Title $_", body => "Body $_" }), 1, 2 ],
	16	'Existing set loads ok'
	17	);
	18
	19	done_testing;