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