Parent Directory
| 
Revision Log
| 
Patch
| revision 357 by dpavlin, Sat Dec 17 03:19:58 2005 UTC | revision 358 by dpavlin, Sun Jan 8 13:58:19 2006 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
| 2 | ||
| 3 | use Test::More tests => 14; | use Test::More tests => 17; |
| 4 | use blib; | use blib; |
| 5 | use_ok( Catalyst::Test, 'Webpacus' ); | use_ok( Catalyst::Test, 'Webpacus' ); |
| 6 | ||
| # | Line 23 foreach my $url (qw# | Line 23 foreach my $url (qw# |
| 23 | #) { | #) { |
| 24 | ok( request( $url )->is_success, "$url" ); | ok( request( $url )->is_success, "$url" ); |
| 25 | } | } |
| 26 | ||
| 27 | ok( my $default = get( '/search' ), "/search"); | |
| 28 | ok( my $sites = get( '/hr/search' ), "/hr/search"); | |
| 29 | cmp_ok( $default, 'ne', $sites, 'sites'); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |