/[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 155 by dpavlin, Sat Nov 26 01:54:42 2005 UTC revision 165 by dpavlin, Sat Nov 26 20:21:54 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 6;  use Test::More tests => 9;
4  use blib;  use blib;
5  use_ok( Catalyst::Test, 'Webpacus' );  use_ok( Catalyst::Test, 'Webpacus' );
6    
7  ok( request('/')->is_success );  # test some URIs
8    
9  ok( request('/search')->is_success );  foreach my $url (qw#
10            /
11  ok( request('/search/results')->is_success );          /search
12            /search/results
13  ok( request('/search/suggest')->is_success );          /search/suggest
14            /search/suggest/TitleProper?all=a
15  ok( request('/search/suggest/TitleProper?what=foo')->is_success );          /editor
16            /editor/template
17            /editor/css
18    #) {
19            ok( request( $url )->is_success, "$url" );
20    }
Legend:
Removed from v.155  
changed lines
  Added in v.165
  ViewVC Help
Powered by ViewVC 1.1.26