cleanup last insert id handling

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

diff --git a/t/01basic_collection.t b/t/01basic_collection.t
index 0c14444..548ff89 100644 (file)
--- a/t/01basic_collection.t
+++ b/t/01basic_collection.t
@@ -3,6 +3,9 @@ use DBIx::Data::Store;
 use DBIx::Data::Store::CRUD;
 use DBIx::Data::Collection::Set;
 use DBI;
+use Scalar::Util qw(refaddr);
+
+use Devel::Dwarn;
 
 use strict;
 use warnings FATAL => 'all';
@@ -82,8 +85,12 @@ $set = make_set {}, {
 
 my $doug = $set->add({ name => 'Doug' });
 
-use Devel::Dwarn;
+ok($doug->{id}, 'id filled out in new row');
+
+my ($set_doug) = grep $_->{name} eq 'Doug', $set->flatten;
+
+ok($set_doug, 'new row exists in flatten');
 
-Dwarn $doug;
+cmp_ok(refaddr($doug), '==', refaddr($set_doug), 'Same hashref returned');
 
 done_testing;