/[webpac2]/Webpacus/t/01app.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 /Webpacus/t/01app.t

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

revision 358 by dpavlin, Sun Jan 8 13:58:19 2006 UTC revision 359 by dpavlin, Sun Jan 8 14:52:24 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 17;  use strict;
4    use Test::More tests => 39;
5  use blib;  use blib;
6  use_ok( Catalyst::Test, 'Webpacus' );  use Catalyst::Test 'Webpacus';
7    
8  # test some URIs  # test some URIs
9    
10    my $test_site = 'hr';
11    
12  foreach my $url (qw#  foreach my $url (qw#
13          /          /
14          /search          /search
# Line 21  foreach my $url (qw# Line 24  foreach my $url (qw#
24          /editor/template          /editor/template
25          /editor/css          /editor/css
26  #) {  #) {
27          ok( request( $url )->is_success, "$url" );          ok( my $default = get( $url ), "get $url");
28            my $site_url = "/$test_site/$url";
29            $site_url =~ s#//+#/#g;
30            ok( my $sites = get( $site_url ), "get $site_url" );
31    
32            # normalize site html for comparison
33            $sites =~ s#/\Q$test_site\E/#/#gs;
34    
35            my $op = 'ne';
36            # part which doesn't change depending on site
37            $op = 'eq' if ($url =~ m#^/(editor|search/suggest)#);
38    
39            cmp_ok( $default, $op, $sites, "site content $url $op $site_url");
40  }  }
41    
 ok( my $default = get( '/search' ), "/search");  
 ok( my $sites = get( '/hr/search' ), "/hr/search");  
 cmp_ok( $default, 'ne', $sites, 'sites');  
Legend:
Removed from v.358  
changed lines
  Added in v.359
  ViewVC Help
Powered by ViewVC 1.1.26