/[A3C]/t/50-strix.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/50-strix.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 173 by dpavlin, Mon Jun 16 12:44:57 2008 UTC revision 174 by dpavlin, Mon Jun 16 16:48:16 2008 UTC
# Line 17  use_ok('Strix'); Line 17  use_ok('Strix');
17  $Strix::debug = 1 if @ARGV;  $Strix::debug = 1 if @ARGV;
18  my $debug = $Strix::debug;  my $debug = $Strix::debug;
19    
20  my $site = 'os-test0604-zg';  my $instance = 'os-test0604-zg';
21  $site = 'new';  $instance = 'new';
22    
23  ok( my $dbh = Strix->dbh( $site ), 'dbh' );  ok( my $dbh = Strix->dbh( $instance ), 'dbh' );
24  isa_ok( $dbh, 'DBI::db' );  isa_ok( $dbh, 'DBI::db' );
25    
26  ok( my $strix = Strix->new({ site => $site }), 'new' );  ok( my $strix = Strix->new({ instance => $instance }), 'new' );
27  isa_ok( $strix, 'Strix' );  isa_ok( $strix, 'Strix' );
28    
29  my $url = '/';  my $url = '/';

Legend:
Removed from v.173  
changed lines
  Added in v.174

  ViewVC Help
Powered by ViewVC 1.1.26