Changeset 19 for trunk/t/c

Show
Ignore:
Timestamp:
05/20/05 18:47:38 (4 years ago)
Author:
evdb
Message:

Changed: Fixed GETs with effects and added loads of tests

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/t/c/holder.t

    r14 r19  
    22use warnings; 
    33 
    4 use Test::More tests => 48; 
     4use Test::More tests => 41; 
    55 
    66require 't/helpers.pl'; 
    …… 
    1818ok login_as_test(), "login as test user"; 
    1919 
    20    
    21 {   # Check for holders. 
     20{    # Check for holders. 
    2221    my @holders = $test_user->holders; 
    2322    if ( scalar @holders ) { 
    24         $_->delete for @holders; 
    25         pass "holders deleted"; 
    26     } else { 
    27         pass "there were no holders"; 
     23        $_->delete for @holders; 
     24        pass "holders deleted"; 
     25    } 
     26    else { 
     27        pass "there were no holders"; 
    2828    } 
    2929} 
    …… 
    5959# Move the holders round a bit in this column. 
    6060 
    61 ok $mech->follow_link( url => "/holder/move/$holders{2}/up" ), 
    62   "move 'Test Holder 2' up"; 
     61$mech->form('page_edit'); 
     62$mech->click("act_moveholder_$holders{2}_up"); 
    6363refresh_objects( \%holders ); 
    6464is $holders{1}->rank, 4, "checking rank of 'Test Holder 1'"; 
    …… 
    6666is $holders{3}->rank, 6, "checking rank of 'Test Holder 3'"; 
    6767 
    68 ok $mech->follow_link( url => "/holder/move/$holders{2}/down" ), 
    69   "move 'Test Holder 2' down"; 
     68$mech->form('page_edit'); 
     69$mech->click("act_moveholder_$holders{2}_down"); 
    7070refresh_objects( \%holders ); 
    7171is $holders{1}->rank, 2, "checking rank of 'Test Holder 1'"; 
    …… 
    7373is $holders{3}->rank, 6, "checking rank of 'Test Holder 3'"; 
    7474 
    75 ok $mech->follow_link( url => "/holder/move/$holders{2}/down" ), 
    76   "move 'Test Holder 2' down"; 
     75$mech->form('page_edit'); 
     76$mech->click("act_moveholder_$holders{2}_down"); 
    7777refresh_objects( \%holders ); 
    7878is $holders{1}->rank, 2, "checking rank of 'Test Holder 1'"; 
    …… 
    8080is $holders{3}->rank, 4, "checking rank of 'Test Holder 3'"; 
    8181 
    82 ok $mech->follow_link( url => "/holder/move/$holders{2}/up" ), 
    83   "move 'Test Holder 2' up"; 
     82$mech->form('page_edit'); 
     83$mech->click("act_moveholder_$holders{2}_up"); 
    8484refresh_objects( \%holders ); 
    8585is $holders{1}->rank, 2, "checking rank of 'Test Holder 1'"; 
    …… 
    8888 
    8989# Move the holder left then right. 
    90 ok $mech->follow_link( url => "/holder/move/$holders{2}/right" ), 
    91   "move 'Test Holder 2' right"; 
     90$mech->form('page_edit'); 
     91$mech->click("act_moveholder_$holders{2}_right"); 
    9292refresh_objects( \%holders ); 
    9393is $holders{1}->rank, 2, "checking rank of 'Test Holder 1'"; 
    …… 
    9696is $holders{3}->rank, 4, "checking rank of 'Test Holder 3'"; 
    9797 
    98 ok $mech->follow_link( url => "/holder/move/$holders{2}/left" ), 
    99   "move 'Test Holder 2' left"; 
     98$mech->form('page_edit'); 
     99$mech->click("act_moveholder_$holders{2}_left"); 
    100100refresh_objects( \%holders ); 
    101101is $holders{1}->rank, 4, "checking rank of 'Test Holder 1'"; 
    …… 
    105105 
    106106# Delete a holder and check that rank is corrected. 
    107 ok $mech->follow_link( url => "/holder/delete/$holders{1}" ), 
    108   "delete 'Test Holder 1'"; 
     107$mech->form('page_edit'); 
     108$mech->click("act_deleteholder_$holders{1}"); 
    109109refresh_objects( \%holders ); 
    110110ok !$holders{1}, "check that 'Test Holder 1' is gone"; 

  • trunk/t/c/scrap.t

    r14 r19  
    44require 't/helpers.pl'; 
    55 
    6 use Test::More tests => 22; 
     6use Test::More tests => 21; 
    77 
    88use_ok('Scrpbk::C::Holder'); 
    …… 
    5959 
    6060# Delete scrap 3 
    61 $mech->follow_link_ok( { url => "/scrap/delete/$scraps{3}" }, 
    62     "delete scrap 3" ); 
     61$mech->form('page_edit'); 
     62$mech->click("act_deletescrap_$scraps{3}"); 
    6363 
    6464refresh_objects( \%scraps );