t/lib/SGN/Test/Fixture.pm

   1
   2 =head1 NAME
   3
   4 SGN::Test::Fixture - use the fixture in unit tests
   5
   6 =head1 SYNOPSIS
   7
   8 my $f = SGN::Test::Fixture;
   9
  10 my $dbh = $f->dbh(); # accesses the fixture db
  11
  12 my $bcs_schema = $f->bcs_schema(); # access DBIx::Class BCS schema
  13
  14 my $phenome_schema = $f->phenome_schema(); # access DBIx::Class phenome schema
  15
  16 my $sgn_schema = $f->sgn_schema(); # access DBIx::Class SGN schema
  17
  18 # run tests...
  19
  20 my $sample_class = CXGN::SampleClass->new( { dbh => $dbh });
  21
  22 is ($sample_class->foo(), 42, "foo test");
  23
  24 # etc...
  25
  26 =head1 AUTHOR
  27
  28 Lukas Mueller <lam87@cornell.edu>
  29
  30 =cut
  31
  32
  33 package SGN::Test::Fixture;
  34
  35 use Moose;
  36 use DBI;
  37 use DBIx::Class;
  38 use Config::Any;
  39 use Data::Dumper;
  40 use File::Slurp qw | read_file |;
  41 use Bio::Chado::Schema;
  42 use CXGN::Phenome::Schema;
  43 use CXGN::Metadata::Schema;
  44 use SGN::Schema;
  45 use Catalyst::Authentication::User;
  46 use CXGN::People::Person;
  47
  48 use warnings;
  49
  50 sub BUILD {
  51     my $self = shift;
  52
  53     if (! -f 'sgn_fixture.conf') {
  54         print "ERROR! sgn_fixture.conf does not exist. Abort. Are you running test_fixture.pl ?\n";
  55         exit();
  56     }
  57
  58     my $all_config = Config::Any->load_files({
  59         files=> ['sgn_fixture.conf'], use_ext=>1
  60                                          });
  61
  62     my $config = $all_config->[0]->{'sgn_fixture.conf'};
  63
  64     $self->config($config);
  65
  66     my $dsn = 'dbi:Pg:database='.$self->config->{dbname}.";host=".$self->config->{dbhost}.";port=5432";
  67
  68     $self->dbh(DBI->connect($dsn, $self->config->{dbuser}, $self->config->{dbpass}, { on_connect_do => ['SET search_path TO phenome, public, sgn, metadata' ]} ));
  69
  70     $self->bcs_schema(Bio::Chado::Schema->connect($dsn, $self->config->{dbuser}, $self->config->{dbpass}));
  71
  72     $self->phenome_schema(CXGN::Phenome::Schema->connect($dsn, $self->config->{dbuser}, $self->config->{dbpass}, { on_connect_do => [ 'SET search_path TO phenome, public, sgn, metadata' ] } ));
  73
  74     $self->sgn_schema(SGN::Schema->connect($dsn, $self->config->{dbuser}, $self->config->{dbpass}, { on_connect_do => [ 'SET search_path TO metadata, public, sgn' ] }));
  75
  76     $self->metadata_schema(CXGN::Metadata::Schema->connect($dsn, $self->config->{dbuser}, $self->{config}->{dbpass}, { on_connect_do => [ 'SET search_path TO metadata, public, sgn' ] }));
  77
  78     #Janedoe in fixture db
  79     my $catalyst_user = Catalyst::Authentication::User->new();
  80     my $sgn_user = CXGN::People::Person->new($self->dbh, 41);
  81     $catalyst_user->set_object($sgn_user);
  82     $self->user($catalyst_user);
  83     $self->sp_person_id(41);
  84     $self->username('janedoe');
  85 }
  86
  87 has 'config' => ( isa => "Ref",
  88                   is => 'rw',
  89     );
  90
  91
  92 has 'dbh' => (
  93                 is => 'rw',
  94     );
  95
  96 has 'bcs_schema' => (isa => 'Bio::Chado::Schema',
  97                      is => 'rw',
  98     );
  99
 100 has 'phenome_schema' => (isa => 'CXGN::Phenome::Schema',
 101                          is => 'rw',
 102     );
 103
 104 has 'sgn_schema' => (isa => 'SGN::Schema',
 105                      is => 'rw',
 106     );
 107
 108 has 'metadata_schema' => (isa => 'CXGN::Metadata::Schema',
 109                           is => 'rw',
 110     );
 111
 112 has 'user' => ( isa => 'Object',
 113     is => 'rw',
 114 );
 115
 116 has 'sp_person_id' => ( isa => 'Int',
 117     is => 'rw',
 118 );
 119
 120 has 'username' => ( isa => 'Str',
 121     is => 'rw',
 122 );
 123
 124 sub dbic_schema {
 125     my $self = shift;
 126     my $name = shift;
 127
 128     if ($name eq 'Bio::Chado::Schema') {
 129         return $self->bcs_schema();
 130     }
 131     if ($name eq 'CXGN::Phenome::Schema') {
 132         return $self->phenome_schema();
 133     }
 134     if ($name eq 'SGN::Schema') {
 135         return $self->sgn_schema();
 136     }
 137     if ($name eq 'CXGN::Metadata::Schema') {
 138         return $self->metadata_schema();
 139     }
 140
 141     return undef;
 142 }
 143
 144 sub get_conf {
 145     my $self = shift;
 146     my $name = shift;
 147
 148     return $self->config->{$name};
 149 }
 150
 151
 152
 153 1;