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