[catagits/App-IdiotBox.git] / t / store / sqlite.t

use strict;
use warnings FATAL => 'all';

use Test::More;

use App::IdiotBox::Store::SQLite;
use App::IdiotBox;

use Devel::Dwarn;

my $ib = App::IdiotBox->new;

App::IdiotBox::Store::SQLite->bind($ib);

Dwarn [ $ib->{recent_announcements}->flatten ];
my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});

#Dwarn [ $bucket->{videos}->flatten ];

Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });

ok(1); # This even a test? -- alh

done_testing;
Commit	Line	Data
265c2b91	1	use strict;
	2	use warnings FATAL => 'all';
	3
6b6ce2e0	4	use Test::More;
6b6ce2e0	5
265c2b91	6	use App::IdiotBox::Store::SQLite;
6df05090	7	use App::IdiotBox;
265c2b91	8
	9	use Devel::Dwarn;
	10
6df05090	11	my $ib = App::IdiotBox->new;
265c2b91	12
	13	App::IdiotBox::Store::SQLite->bind($ib);
	14
6df05090	15	Dwarn [ $ib->{recent_announcements}->flatten ];
265c2b91	16	my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});
	17
	18	#Dwarn [ $bucket->{videos}->flatten ];
	19
	20	Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });
6b6ce2e0	21
	22	ok(1); # This even a test? -- alh
	23
	24	done_testing;