t/store/sqlite.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use Test::More;
   5
   6 use App::IdiotBox::Store::SQLite;
   7 use App::IdiotBox;
   8
   9 use Devel::Dwarn;
  10
  11 my $ib = App::IdiotBox->new;
  12
  13 App::IdiotBox::Store::SQLite->bind($ib);
  14
  15 Dwarn [ $ib->{recent_announcements}->flatten ];
  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' });
  21
  22 ok(1); # This even a test? -- alh
  23
  24 done_testing;