apparently vaguely working store code

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

diff --git a/t/store/sqlite.t b/t/store/sqlite.t
new file mode 100644 (file)
index 0000000..dca7489
--- /dev/null
+++ b/t/store/sqlite.t
@@ -0,0 +1,17 @@
+use strict;
+use warnings FATAL => 'all';
+
+use App::IdiotBox::Store::SQLite;
+
+use Devel::Dwarn;
+
+my $ib = {};
+
+App::IdiotBox::Store::SQLite->bind($ib);
+
+#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' });