Changeset 22812

Show
Ignore:
Timestamp:
11/06/08 16:49:16 (5 years ago)
Author:
hidek
Message:

Test::WWW::Mechanize::Catalystを使うテストをオプショナルにした

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Catalyst-Controller-RequestToken/trunk/t/live-test.t

    r22809 r22812  
    33use strict; 
    44use warnings; 
    5 use Test::More qw(no_plan); 
     5use Test::More; 
    66 
    77# setup library path 
    88use FindBin qw($Bin); 
    99use lib "$Bin/lib"; 
     10 
     11BEGIN { 
     12    plan skip_all => 'this test needs Test::WWW::Mechanize::Catalyst' 
     13        unless eval "require Test::WWW::Mechanize::Catalyst"; 
     14    plan tests => 15; 
     15} 
    1016 
    1117# make sure testapp works 
    … …  
    1521use Test::WWW::Mechanize::Catalyst 'TestApp'; 
    1622my $mech = Test::WWW::Mechanize::Catalyst->new; 
    17 $mech->get_ok('http://localhost/', 'get main page'); 
    18 $mech->content_like(qr/it works/i, 'index page'); 
     23$mech->get_ok( 'http://localhost/', 'get main page' ); 
     24$mech->content_like( qr/it works/i, 'index page' ); 
    1925 
    20 $mech->get_ok('http://localhost/simple/form', 'get main page'); 
    21 $mech->content_like(qr/FORM/i, 'form page - valid'); 
     26$mech->get_ok( 'http://localhost/simple/form', 'get main page' ); 
     27$mech->content_like( qr/FORM/i, 'form page - valid' ); 
    2228 
    23 $mech->submit_form_ok({}, 'submit form'); 
    24 $mech->content_like(qr/CONFIRM/i, 'submit to confirm page - valid'); 
     29$mech->submit_form_ok( {}, 'submit form' ); 
     30$mech->content_like( qr/CONFIRM/i, 'submit to confirm page - valid' ); 
    2531 
    26 $mech->submit_form_ok({}, 'submit form'); 
    27 $mech->content_like(qr/SUCCESS/i, 'submit to success page - valid'); 
     32$mech->submit_form_ok( {}, 'submit form' ); 
     33$mech->content_like( qr/SUCCESS/i, 'submit to success page - valid' ); 
    2834 
    2935$mech->reload; 
    30 $mech->content_like(qr/INVALID ACCESS/i, 'reload on success page - invalid'); 
     36$mech->content_like( qr/INVALID ACCESS/i, 
     37    'reload on success page - invalid' ); 
    3138 
    3239$mech->back; 
    33 $mech->content_like(qr/CONFIRM/i, 'back to confirm page - valid'); 
     40$mech->content_like( qr/CONFIRM/i, 'back to confirm page - valid' ); 
    3441 
    3542$mech->submit; 
    36 $mech->content_like(qr/INVALID ACCESS/i, 'submit to success page - invalid'); 
     43$mech->content_like( qr/INVALID ACCESS/i, 
     44    'submit to success page - invalid' ); 
    3745 
    3846$mech->back; 
    3947$mech->back; 
    4048$mech->reload; 
    41 $mech->content_like(qr/FORM/i, 'back to form page - valid'); 
     49$mech->content_like( qr/FORM/i, 'back to form page - valid' ); 
    4250$mech->submit; 
    43 $mech->content_like(qr/CONFIRM/i, 'submit to confirm page - valid'); 
     51$mech->content_like( qr/CONFIRM/i, 'submit to confirm page - valid' ); 
    4452$mech->submit; 
    45 $mech->content_like(qr/SUCCESS/i, 'submit to success page - valid'); 
     53$mech->content_like( qr/SUCCESS/i, 'submit to success page - valid' ); 
     54 
    4655=cut