Commit | Line | Data |
7adfd53f |
1 | package # hide from PAUSE |
2 | RTest::TestDB; |
3 | |
4 | use base qw/DBIx::Class::Schema/; |
5 | |
6 | use DateTime; |
7 | |
8 | __PACKAGE__->load_classes; |
9 | |
10 | sub setup_test_data { |
11 | my $self = shift; |
12 | $self->populate('Foo' => [ |
13 | [ qw/ first_name last_name / ], |
14 | map { ( |
15 | [ "Joe", "Bloggs $_" ], |
16 | [ "John", "Smith $_" ], |
17 | ) } (1 .. 50) |
18 | ]); |
19 | $self->populate('Baz' => [ |
99535516 |
20 | [ qw/ name description/ ], |
21 | map { [ "Baz $_", ("lorem ipsum dolor sit amet," x $_) ] } (1 .. 4) |
7adfd53f |
22 | ]); |
23 | $self->populate('Bar' => [ |
24 | [ qw/ name foo_id / ], |
25 | map { [ "Bar $_", $_ ] } (1 .. 4) |
26 | ]); |
27 | } |
28 | |
29 | 1; |