t/store/sqlite.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use App::IdiotBox::Store::SQLite;
   5 use App::IdiotBox;
   6
   7 use Devel::Dwarn;
   8
   9 my $ib = App::IdiotBox->new;
  10
  11 App::IdiotBox::Store::SQLite->bind($ib);
  12
  13 Dwarn [ $ib->{recent_announcements}->flatten ];
  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' });