From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 8 Feb 2014 09:48:12 +0000 (+0100)
Subject: Make sure the taint test does some DB-level ops
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2d11f4aef9b6c116351f0ee327a46551fcd190f;p=dbsrgits%2FDBIx-Class-Historic.git

Make sure the taint test does some DB-level ops
---

diff --git a/t/54taint.t b/t/54taint.t
index d6e3535..9f299ba 100644
--- a/t/54taint.t
+++ b/t/54taint.t
@@ -72,4 +72,13 @@ throws_ok (
   }, 'Loading classes with Module::Find/load_namespaces worked in taint mode' );
 }
 
+# check that we can create a database and all
+{
+  my $s = DBICTest->init_schema( sqlite_use_file => 1 );
+  my $art = $s->resultset('Artist')->search({}, {
+    prefetch => 'cds', order_by => 'artistid',
+  })->next;
+  is ($art->artistid, 1, 'got artist');
+}
+
 done_testing;