t/store/sqlite.t

   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' });