t/lib/RTest/TestDB.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

package # hide from PAUSE
  RTest::TestDB;

use base qw/DBIx::Class::Schema/;

use DateTime;

__PACKAGE__->load_classes;

sub setup_test_data {
  my $self = shift;
  $self->populate('Foo' => [
    [ qw/ first_name last_name / ],
    map { (
      [ "Joe", "Bloggs $_" ],
      [ "John", "Smith $_" ],
    ) } (1 .. 50)
  ]);
  $self->populate('Baz' => [
    [ qw/ name description/ ],
    map { [ "Baz $_", ("lorem ipsum dolor sit amet," x $_) ] } (1 .. 4)
  ]);
  $self->populate('Bar' => [
    [ qw/ name foo_id / ],
    map { [ "Bar $_", $_ ] } (1 .. 4)
  ]);
}

1;