3 use DBIx::Data::Store::CRUD;
4 use DBIx::Data::Collection::Set;
6 use Scalar::Util qw(refaddr);
11 use warnings FATAL => 'all';
14 sort { $a->{name} cmp $b->{name} } @_
17 my $dsn = 'dbi:SQLite:tmp.db';
21 return DBI->connect($dsn)
28 id INTEGER NOT NULL PRIMARY KEY,
29 name VARCHAR(255) NOT NULL
32 my $pop = $dbh->prepare(q{INSERT INTO person (name) VALUES (?)});
33 my @names = qw(Joe Jim Bob Pterry);
34 $pop->execute($_) for @names;
36 my $id = 0; map +{ id => ++$id, name => $_ }, @names
40 my $db_store = DBIx::Data::Store->connect($dsn);
42 sub raw_store { $db_store }
46 DBIx::Data::Store::CRUD->new(
47 raw_store => $db_store,
48 select_sql => q{SELECT id, name FROM person},
49 select_column_order => [ qw(id name) ],
55 my ($set, $crud, $class) = @_;
56 ($class || 'DBIx::Data::Collection::Set')->new(
58 store => make_store($crud),
65 my @expect = setup_db;
69 is_deeply([ sort_set $set->flatten ], \@expect, 'Basic data out ok (flatten)');
72 my $stream = $set->as_stream;
74 my @got; while (my ($next) = $stream->next) { push @got, $next }
76 is_deeply([ sort_set @got ], \@expect, 'Basic data out ok (stream)');
79 $set = make_set { class => 'Spoon' };
82 [ sort_set $set->flatten ],
83 [ map { bless({ %$_ }, 'Spoon') } @expect ],
84 'Basic data with class out ok'
88 insert_sql => q{INSERT INTO person (name) VALUES (?) },
89 insert_argument_order => [ 'name' ],
90 insert_command_constructor => sub {
91 require DBIx::Data::Store::Command::Insert::LastInsertId;
93 DBIx::Data::Store::Command::Insert::LastInsertId->new(
95 raw_store => $self->raw_store,
96 insert_call_command => $self->raw_store->new_call_command(@_)
99 delete_single_sql => q{DELETE FROM person WHERE id = ?},
100 delete_single_argument_order => [ 'id' ],
103 my $doug = $set->add({ name => 'Doug' });
105 ok($doug->{id}, 'id filled out in new row');
107 my ($set_doug) = grep $_->{name} eq 'Doug', $set->flatten;
109 ok($set_doug, 'new row exists in flatten');
111 cmp_ok(refaddr($doug), '==', refaddr($set_doug), 'Same hashref returned');
115 is_deeply([ sort_set $set->flatten ], \@expect, 'new row gone after remove');
119 is_deeply([ sort_set $set->flatten ], \@expect, 'new row still gone on reload');
121 $set = make_set {}, {
122 update_single_sql => q{UPDATE person SET name = ? WHERE id = ?},
123 update_single_argument_order => [ qw(name id) ]
126 my ($pterry) = grep $_->{name} eq 'Pterry', $set->flatten;
128 $pterry->{name} = 'Sir Pterry'; # http://xrl.us/bgse8s
130 $set->_update_in_store($pterry);
134 my ($fresh_pterry) = grep $_->{name} =~ /Pterry/, $set->flatten;
136 is($fresh_pterry->{name}, 'Sir Pterry', 'Update persisted correctly');
138 $set = make_set {}, {
139 select_single_sql => q{SELECT id, name FROM person WHERE id = ?},
140 select_single_argument_order => [ qw(id) ],
143 my $pterry_id = (grep $_->{name} eq 'Pterry', @expect)[0]->{id};
145 $pterry = $set->get({ id => $pterry_id });
147 is($pterry->{name}, 'Sir Pterry', 'Pterry retrieved by id');
149 ok(!defined($set->get({ id => -1 })), 'undef on missing id');
151 $pterry->{name} = 'Pterry';
153 is_deeply([ sort_set $set->flatten ], \@expect, 'Basic data after fetch by id');
158 run_tests unless caller;