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

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

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' });
Commit	Line	Data
265c2b91	1	use strict;
	2	use warnings FATAL => 'all';
	3
	4	use App::IdiotBox::Store::SQLite;
6df05090	5	use App::IdiotBox;
265c2b91	6
	7	use Devel::Dwarn;
	8
6df05090	9	my $ib = App::IdiotBox->new;
265c2b91	10
	11	App::IdiotBox::Store::SQLite->bind($ib);
	12
6df05090	13	Dwarn [ $ib->{recent_announcements}->flatten ];
265c2b91	14	my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});
	15
	16	#Dwarn [ $bucket->{videos}->flatten ];
	17
	18	Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });