Add in Data::Perl::Collection::Set from DBIx-Data-Store-old so we can run tests.

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

diff --git a/t/store/sqlite.t b/t/store/sqlite.t
index dca7489..d0caa55 100644 (file)
--- a/t/store/sqlite.t
+++ b/t/store/sqlite.t
@@ -1,17 +1,24 @@
 use strict;
 use warnings FATAL => 'all';
 
+use Test::More;
+
 use App::IdiotBox::Store::SQLite;
+use App::IdiotBox;
 
 use Devel::Dwarn;
 
-my $ib = {};
+my $ib = App::IdiotBox->new;
 
 App::IdiotBox::Store::SQLite->bind($ib);
 
-#Dwarn [ $ib->{recent_announcements}->flatten ];
+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' });
+
+ok(1); # This even a test? -- alh
+
+done_testing;