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

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

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

use Devel::Dwarn;

my $ib = {};

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;
	5
	6	use Devel::Dwarn;
	7
	8	my $ib = {};
	9
	10	App::IdiotBox::Store::SQLite->bind($ib);
	11
	12	#Dwarn [ $ib->{recent_announcements}->flatten ];
	13	my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});
	14
	15	#Dwarn [ $bucket->{videos}->flatten ];
	16
	17	Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });