Foodloop-Server/t/etc/fixtures/config/transactions.pl

#! /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;

$schema->resultset('Category')->create({
  id => 1,
  name => "Test Category",
});

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 ) {
    my $test_transaction = $user_result->create_related( 'transactions', {
      seller_id => $org_result->id,
      value => ( int( rand( 10000 ) ) / 100 ),
      proof_image => 'a',
      purchase_time => $start->clone->subtract( hours => $_ ),
    });
    $schema->resultset('TransactionCategory')->create({
      category_id => 1,
      transaction_id => $test_transaction->id,
    });
  }
}

my $data_set = 'transactions';

$fixtures->dump({
  all => 1,
  schema => $schema,
  directory => "$Bin/../data/" . $data_set,
});