t/context.t

   1 use Test::Most;
   2 use Carp;
   3 $SIG{__DIE__} = \&Carp::confess;
   4
   5 use_ok 'SGN::Context';
   6
   7 my $c = SGN::Context->new;
   8
   9 #### test dbh() method
  10
  11 can_ok( $c->dbc, 'dbh', 'run','txn' );
  12 can_ok( $c->dbc->dbh, 'selectall_arrayref', 'prepare', 'ping' );
  13
  14 ok( $c->dbc->dbh->ping, 'dbh looks live' );
  15
  16 throws_ok {
  17     $c->dbc('nonexistent connection profile');
  18 } qr/not defined/, 'throws for nonexistent connection profile';
  19
  20 like( $c->dbc->dbh->{private_search_path_string},
  21       qr/\S/,
  22       'private_search_path has something in it',
  23      );
  24
  25 # test dbic_schema method
  26
  27 my $schema = $c->dbic_schema('Test::Schema');
  28 can_ok( $schema, 'resultset', 'storage' );
  29 ok( $schema->storage->dbh->ping, 'dbic storage is connected' );
  30 is( search_path( $schema->storage->dbh), search_path( $c->dbc->dbh ), 'schema and dbc should have same search path' );
  31
  32 # test jsan functions
  33 can_ok( $c->new_jsan, 'uris' );
  34 my $uris = $c->js_import_uris('CXGN.Page.Toolbar');
  35 cmp_ok( scalar(@$uris), '>=', 1, 'got at least 1 URI to include for CXGN.Page.Toolbar' );
  36
  37 done_testing;
  38
  39
  40 sub search_path {
  41     my ($dbh) = @_;
  42     my ($sp) = $dbh->selectrow_array('show search_path');
  43     return $sp;
  44 }
  45
  46 package Test::Schema;
  47
  48 use base 'DBIx::Class::Schema';
  49