t/SGN/Context.t

   1 use Test::Most;
   2 use Carp;
   3
   4 use lib 't/lib';
   5 use SGN::Test 'with_test_level';
   6
   7 $SIG{__DIE__} = \&Carp::confess;
   8
   9 use_ok 'SGN::Context';
  10
  11 my $c = SGN::Context->new;
  12
  13 #### test dbh() method
  14 can_ok( $c->dbc, 'dbh', 'run','txn' );
  15 can_ok( $c->dbc->dbh, 'selectall_arrayref', 'prepare', 'ping' );
  16
  17 ok( $c->dbc->dbh->ping, 'dbh looks live' );
  18
  19 throws_ok {
  20     $c->dbc('nonexistent connection profile');
  21 } qr/not defined/, 'throws for nonexistent connection profile';
  22
  23 like( $c->dbc->dbh->{private_search_path_string},
  24       qr/\S/,
  25       'private_search_path has something in it',
  26      );
  27
  28 # test dbic_schema method
  29
  30 my $schema = $c->dbic_schema('Test::Schema');
  31 can_ok( $schema, 'resultset', 'storage' );
  32 ok( $schema->storage->dbh->ping, 'dbic storage is connected' );
  33 is( search_path( $schema->storage->dbh), search_path( $c->dbc->dbh ), 'schema and dbc should have same search path' );
  34
  35 # test tempfile method
  36 with_test_level( local => sub {
  37     my ($tempfile, $temp_uri) =
  38         $c->tempfile( TEMPLATE => [ 'foobar','noggin-XXXXX' ],
  39                       SUFFIX => '.foo' );
  40
  41     can_ok( $tempfile, 'filename', 'print' );
  42     can_ok( $temp_uri, 'path' );
  43     unlike( $temp_uri, qr/X{5}/, 'temp_uri got its Xs replaced' );
  44     unlike( $temp_uri, qr/X{5}/, 'temp_uri got its Xs replaced' );
  45     like( "$tempfile", qr/\.foo$/, 'tempfile name has suffix' );
  46     like( "$temp_uri", qr/\.foo$/, 'tempfile uri has suffix' );
  47 });
  48
  49 done_testing;
  50
  51
  52 sub search_path {
  53     my ($dbh) = @_;
  54     my ($sp) = $dbh->selectrow_array('show search_path');
  55     return $sp;
  56 }
  57
  58 package Test::Schema;
  59
  60 use base 'DBIx::Class::Schema';
  61