/[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 168 by dpavlin, Sun Jun 15 23:59:51 2008 UTC revision 174 by dpavlin, Mon Jun 16 16:48:16 2008 UTC
# Line 8  test Strix integration Line 8  test Strix integration
8    
9  =cut  =cut
10    
11  use Jifty::Test tests => 9;  use Jifty::Test tests => 10;
12    
13  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
14    
# 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    $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 = '/';
# Line 35  ok( my $layout = $strix->layout( $url ), Line 36  ok( my $layout = $strix->layout( $url ),
36  diag dump( $layout ) if $debug;  diag dump( $layout ) if $debug;
37  ok( $layout->{pre}, 'pre' );  ok( $layout->{pre}, 'pre' );
38  ok( $layout->{free}, 'free' );  ok( $layout->{free}, 'free' );
39    
40    my $site_id = 1;
41    
42    ok( my $sitemap = $strix->sitemap( $site_id ), "sitemap $site_id" );
43    diag dump( $sitemap ) if $debug;

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

  ViewVC Help
Powered by ViewVC 1.1.26