mass update and delete

[dbsrgits/DBIx-Data-Store-old.git] / t / 01basic_collection.t

diff --git a/t/01basic_collection.t b/t/01basic_collection.t
index 8ad5fc7..ee20e11 100644 (file)
--- a/t/01basic_collection.t
+++ b/t/01basic_collection.t
@@ -10,15 +10,19 @@ use Devel::Dwarn;
 use strict;
 use warnings FATAL => 'all';
 
-my $dsn = 'dbi:SQLite:tmp.db';
-
 sub sort_set {
   sort { $a->{name} cmp $b->{name} } @_
 }
 
-sub setup_db {
+my $dsn = 'dbi:SQLite:tmp.db';
+
+sub setup_dbh {
   unlink('tmp.db');
-  my $dbh = DBI->connect($dsn);
+  return DBI->connect($dsn)
+}
+
+sub setup_db {
+  my $dbh = setup_dbh;
   $dbh->do(q{
     CREATE TABLE person (
       id INTEGER NOT NULL PRIMARY KEY,
@@ -35,6 +39,8 @@ sub setup_db {
 
 my $db_store = DBIx::Data::Store->connect($dsn);
 
+sub raw_store { $db_store }
+
 sub make_store {
   my ($crud) = @_;
   DBIx::Data::Store::CRUD->new(