diff options
Diffstat (limited to 't/lib/RTest/TestDB.pm')
-rw-r--r-- | t/lib/RTest/TestDB.pm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/lib/RTest/TestDB.pm b/t/lib/RTest/TestDB.pm new file mode 100644 index 0000000..25012d2 --- /dev/null +++ b/t/lib/RTest/TestDB.pm @@ -0,0 +1,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 / ], + map { [ "Baz $_" ] } (1 .. 4) + ]); + $self->populate('Bar' => [ + [ qw/ name foo_id / ], + map { [ "Bar $_", $_ ] } (1 .. 4) + ]); +} + +1; |