--- t/50-strix.t 2008/06/15 23:59:51 168 +++ t/50-strix.t 2008/06/17 21:27:31 193 @@ -8,7 +8,7 @@ =cut -use Jifty::Test tests => 9; +use Jifty::Test tests => 10; use Data::Dump qw/dump/; @@ -17,12 +17,13 @@ $Strix::debug = 1 if @ARGV; my $debug = $Strix::debug; -my $site = 'os-test0604-zg'; +my $instance = 'os-test0604-zg'; +$instance = 'new'; -ok( my $dbh = Strix->dbh( $site ), 'dbh' ); +ok( my $dbh = Strix->dbh( $instance ), 'dbh' ); isa_ok( $dbh, 'DBI::db' ); -ok( my $strix = Strix->new({ site => $site }), 'new' ); +ok( my $strix = Strix->new({ instance => $instance }), 'new' ); isa_ok( $strix, 'Strix' ); my $url = '/'; @@ -35,3 +36,6 @@ diag dump( $layout ) if $debug; ok( $layout->{pre}, 'pre' ); ok( $layout->{free}, 'free' ); + +ok( my @sites = $strix->sites, "sites" ); +diag dump( @sites ) if $debug;