t/lib/RTest/TestDB.pm

   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' => [
  20     [ qw/ name description/ ],
  21     map { [ "Baz $_", ("lorem ipsum dolor sit amet," x $_) ] } (1 .. 4)
  22   ]);
  23   $self->populate('Bar' => [
  24     [ qw/ name foo_id / ],
  25     map { [ "Bar $_", $_ ] } (1 .. 4)
  26   ]);
  27 }
  28
  29 1;