moved shit to trunk

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;