1 package # hide from PAUSE
4 use base qw/DBIx::Class::Schema/;
8 __PACKAGE__->load_classes(qw/
19 { 'DBICTest::Schema' => [qw/
30 'ArtistUndirectedMap',
35 qw/SelfRefAlias TreeLike TwoKeyTreeLike Event/
41 if ($ENV{"DBICTEST_SQLT_DEPLOY"}) {
42 return $schema->next::method(@_);
44 open IN, "t/lib/sqlite.sql";
46 { local $/ = undef; $sql = <IN>; }
48 $self->storage->dbh->do($_) for split(/;\n/, $sql);
55 $self->storage->dbh->do("PRAGMA synchronous = OFF");
57 $self->populate('Artist', [
58 [ qw/artistid name/ ],
59 [ 1, 'Caterwauler McCrae' ],
60 [ 2, 'Random Boy Band' ],
64 $self->populate('CD', [
65 [ qw/cdid artist title year/ ],
66 [ 1, 1, "Spoonful of bees", 1999 ],
67 [ 2, 1, "Forkful of bees", 2001 ],
68 [ 3, 1, "Caterwaulin' Blues", 1997 ],
69 [ 4, 2, "Generic Manufactured Singles", 2001 ],
70 [ 5, 3, "Come Be Depressed With Us", 1998 ],
73 $self->populate('LinerNotes', [
74 [ qw/liner_id notes/ ],
75 [ 2, "Buy Whiskey!" ],
77 [ 5, "Kill Yourself!" ],
80 $self->populate('Tag', [
93 $self->populate('TwoKeys', [
100 $self->populate('FourKeys', [
101 [ qw/foo bar hello goodbye/ ],
106 $self->populate('OneKey', [
107 [ qw/id artist cd/ ],
113 $self->populate('SelfRef', [
119 $self->populate('SelfRefAlias', [
120 [ qw/self_ref alias/ ],
124 $self->populate('ArtistUndirectedMap', [
129 $self->populate('Producer', [
130 [ qw/producerid name/ ],
131 [ 1, 'Matt S Trout' ],
132 [ 2, 'Bob The Builder' ],
133 [ 3, 'Fred The Phenotype' ],
136 $self->populate('CD_to_Producer', [
143 $self->populate('TreeLike', [
144 [ qw/id parent name/ ],
151 $self->populate('Track', [
152 [ qw/trackid cd position title/ ],
153 [ 4, 2, 1, "Stung with Success"],
154 [ 5, 2, 2, "Stripy"],
155 [ 6, 2, 3, "Sticky Honey"],
156 [ 7, 3, 1, "Yowlin"],
157 [ 8, 3, 2, "Howlin"],
158 [ 9, 3, 3, "Fowlin"],
159 [ 10, 4, 1, "Boring Name"],
160 [ 11, 4, 2, "Boring Song"],
161 [ 12, 4, 3, "No More Ideas"],
163 [ 14, 5, 2, "Under The Weather"],
164 [ 15, 5, 3, "Suicidal"],
165 [ 16, 1, 1, "The Bees Knees"],
166 [ 17, 1, 2, "Apiary"],
167 [ 18, 1, 3, "Beehind You"],
170 $self->populate('Link', [
175 $self->populate('Bookmark', [