X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F87ordered.t;h=324be84cefd2f7e7f70d4b1af5c7e468b7ce71ef;hb=fcf32d045;hp=09805093d9841da37feb3759303cc8a46b0b6139;hpb=5ef76b8b1094769245360ff8bf800fbde46119e6;p=dbsrgits%2FDBIx-Class.git diff --git a/t/87ordered.t b/t/87ordered.t index 0980509..324be84 100644 --- a/t/87ordered.t +++ b/t/87ordered.t @@ -1,6 +1,6 @@ # vim: filetype=perl use strict; -use warnings; +use warnings; use Test::More; use lib qw(t/lib); @@ -181,15 +181,15 @@ $employee->group_id_2(1); $employee->update; ok( check_rs($employees->search_rs({group_id_2=>4, group_id_3=>1})) - && check_rs($employees->search_rs({group_id_2=>1, group_id_3=>1})), - "overloaded multicol update 1" + && check_rs($employees->search_rs({group_id_2=>1, group_id_3=>1})), + "overloaded multicol update 1" ); $employee = $employees->search({group_id_2=>4, group_id_3=>1})->first; $employee->update({group_id_2=>2}); ok( check_rs($employees->search_rs({group_id_2=>4, group_id_3=>1})) - && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>1})), - "overloaded multicol update 2" + && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>1})), + "overloaded multicol update 2" ); $employee = $employees->search({group_id_2=>3, group_id_3=>1})->first; @@ -198,21 +198,21 @@ $employee->group_id_3(3); $employee->update(); ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>1})) && check_rs($employees->search_rs({group_id_2=>1, group_id_3=>3})), - "overloaded multicol update 3" + "overloaded multicol update 3" ); $employee = $employees->search({group_id_2=>3, group_id_3=>1})->first; $employee->update({group_id_2=>2, group_id_3=>3}); ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>1})) - && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>3})), - "overloaded multicol update 4" + && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>3})), + "overloaded multicol update 4" ); $employee = $employees->search({group_id_2=>3, group_id_3=>2})->first; $employee->update({group_id_2=>2, group_id_3=>4, position=>2}); ok( check_rs($employees->search_rs({group_id_2=>3, group_id_3=>2})) - && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>4})), - "overloaded multicol update 5" + && check_rs($employees->search_rs({group_id_2=>2, group_id_3=>4})), + "overloaded multicol update 5" ); sub hammer_rs {