This repository has been archived on 2023-08-16. You can view files and clone it, but cannot push or open issues or pull requests.
Foodloop-Server/t/etc/fixtures/config/full.pl

213 lines
4.2 KiB
Perl
Raw Normal View History

2017-09-26 16:49:16 +00:00
#! /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;
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 $entity1 = {
customer => {
full_name => 'Test User1',
display_name => 'Test User1',
postcode => 'LA1 1AA',
year_of_birth => 2006,
latitude => 54.04,
longitude => -2.80,
},
user => {
email => 'test1@example.com',
password => 'abc123',
},
type => "customer",
};
my $entity2 = {
customer => {
full_name => 'Test User2',
display_name => 'Test User2',
postcode => 'LA1 1AB',
year_of_birth => 2006,
latitude => 54.04,
longitude => -2.80,
},
user => {
email => 'test2@example.com',
password => 'abc123',
},
type => "customer",
};
my $entity3 = {
customer => {
full_name => 'Test User3',
display_name => 'Test User3',
postcode => 'LA1 1AD',
year_of_birth => 2006,
latitude => 54.05,
longitude => -2.80,
},
user => {
email => 'test3@example.com',
password => 'abc123',
},
type => "customer",
};
my $entity4 = {
customer => {
full_name => 'Test User4',
display_name => 'Test User4',
postcode => 'LA1 1AE',
year_of_birth => 2006,
latitude => 54.04,
longitude => -2.80,
},
user => {
email => 'test4@example.com',
password => 'abc123',
},
type => "customer",
};
my $org1 = {
organisation => {
name => 'Test Org',
street_name => 'Test Street',
town => 'Lancaster',
postcode => 'LA1 1AF',
latitude => 54.04725,
longitude => -2.79611,
2017-09-26 16:49:16 +00:00
},
user => {
email => 'org1@example.com',
password => 'abc123',
},
type => "organisation",
};
my $org2 = {
organisation => {
name => 'Test Org 2',
street_name => 'Test Street',
town => 'Lancaster',
postcode => 'LA1 1AG',
latitude => 54.04679,
longitude => -2.7963,
2017-09-26 16:49:16 +00:00
},
user => {
email => 'org2@example.com',
password => 'abc123',
},
associations => {
lis => 1,
},
2017-09-26 16:49:16 +00:00
type => "organisation",
};
my $admin = {
customer => {
full_name => 'Test Admin',
display_name => 'Test Admin',
postcode => 'LA1 1AH',
year_of_birth => 2006,
latitude => 54.05,
longitude => -2.80,
},
user => {
email => 'admin@example.com',
password => 'abc123',
is_admin => \"1",
},
type => "customer",
};
$schema->resultset('Entity')->create( $_ )
for (
$entity1,
$entity2,
$entity3,
$entity4,
$org1,
$org2,
$admin,
);
use Geo::UK::Postcode::CodePointOpen;
my $output_dir = 'etc/code-point-open/codepo_gb';
my $cpo = Geo::UK::Postcode::CodePointOpen->new( path => $output_dir );
my $iter = $cpo->read_iterator(
outcodes => ['LA1'],
include_lat_long => 1,
split_postcode => 1,
);
my $pc_rs = $schema->resultset('GbPostcode');
my $i = 1;
while ( my $pc = $iter->() ) {
$pc_rs->find_or_create(
{
outcode => $pc->{Outcode},
incode => $pc->{Incode},
latitude => $pc->{Latitude},
longitude => $pc->{Longitude},
},
{ key => 'primary' },
);
last if $i++ > 10
}
$iter = $cpo->read_iterator(
outcodes => ['LA2'],
include_lat_long => 1,
split_postcode => 1,
);
$i = 1;
while ( my $pc = $iter->() ) {
$pc_rs->find_or_create(
{
outcode => $pc->{Outcode},
incode => $pc->{Incode},
latitude => $pc->{Latitude},
longitude => $pc->{Longitude},
},
{ key => 'primary' },
);
last if $i++ > 10
}
my $data_set = 'full';
$fixtures->dump({
all => 1,
schema => $schema,
directory => "$Bin/../data/" . $data_set,
});