Added scripts for generating fixtures - no data stored for now

t/etc/fixtures/config/transactions.pl

@@ -0,0 +1,128 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
+
+use DBIx::Class::Fixtures;
+use FindBin qw/ $Bin /;
+use lib "$Bin/../../../../lib";
+use Pear::LocalLoop::Schema;
+use DateTime;
+use Devel::Dwarn;
+
+my $fixtures = DBIx::Class::Fixtures->new({
+  config_dir => "$Bin",
+});
+
+my $schema = Pear::LocalLoop::Schema->connect('dbi:SQLite::memory:');
+
+$schema->deploy;
+
+$schema->resultset('Leaderboard')->populate([
+  [ qw/ name type / ],
+  [ 'Daily Total', 'daily_total' ],
+  [ 'Daily Count', 'daily_count' ],
+  [ 'Weekly Total', 'weekly_total' ],
+  [ 'Weekly Count', 'weekly_count' ],
+  [ 'Monthly Total', 'monthly_total' ],
+  [ 'Monthly Count', 'monthly_count' ],
+  [ 'All Time Total', 'all_time_total' ],
+  [ 'All Time Count', 'all_time_count' ],
+]);
+
+my $user1 = {
+  customer => {
+    full_name    => 'Test User1',
+    display_name => 'Test User1',
+    postcode     => 'LA1 1AA',
+    year_of_birth => 2006,
+  },
+  email        => 'test1@example.com',
+  password     => 'abc123',
+};
+
+my $user2 = {
+  customer => {
+    full_name    => 'Test User2',
+    display_name => 'Test User2',
+    postcode     => 'LA1 1AA',
+    year_of_birth => 2006,
+  },
+  email        => 'test2@example.com',
+  password     => 'abc123',
+};
+
+my $user3 = {
+  customer => {
+    full_name    => 'Test User3',
+    display_name => 'Test User3',
+    postcode     => 'LA1 1AA',
+    year_of_birth => 2006,
+  },
+  email        => 'test3@example.com',
+  password     => 'abc123',
+};
+
+my $user4 = {
+  customer => {
+    full_name    => 'Test User4',
+    display_name => 'Test User4',
+    postcode     => 'LA1 1AA',
+    year_of_birth => 2006,
+  },
+  email        => 'test4@example.com',
+  password     => 'abc123',
+};
+
+my $org = {
+  organisation => {
+    name        => 'Test Org',
+    street_name => 'Test Street',
+    town        => 'Lancaster',
+    postcode    => 'LA1 1AA',
+  },
+  email       => 'test5@example.com',
+  password    => 'abc123',
+};
+
+$schema->resultset('User')->create( $_ )
+  for ( $user1, $user2, $user3, $user4, $org );
+
+my $org_result = $schema->resultset('Organisation')->find({ name => $org->{organisation}{name} });
+
+my $dtf = $schema->storage->datetime_parser;
+
+# Number of hours in 90 days
+my $time_count = 24 * 90;
+
+for my $user ( $user1, $user2, $user3, $user4 ) {
+
+  my $start = DateTime->new(
+    year => 2017,
+    month => 8,
+    day => 1,
+    hour => 0,
+    minute => 0,
+    second => 0,
+    time_zone => 'UTC',
+  );
+
+  my $user_result = $schema->resultset('User')->find({ email => $user->{email} });
+  for ( 0 .. $time_count ) {
+    $user_result->create_related( 'transactions', {
+      seller_id => $org_result->id,
+      value => ( int( rand( 10000 ) ) / 100 ),
+      proof_image => 'a',
+      purchase_time => $start->clone->subtract( hours => $_ ),
+    });
+  }
+}
+
+my $data_set = 'transactions';
+
+$fixtures->dump({
+  all => 1,
+  schema => $schema,
+  directory => "$Bin/../data/" . $data_set,
+});
+