t/run/26positioned.tl

   1 # vim: filetype=perl
   2
   3 sub run_tests {
   4
   5     plan tests => 66;
   6     my $schema = shift;
   7
   8     my $employees = $schema->resultset('Employee::Positioned');
   9     $employees->delete();
  10
  11     foreach (1..5) {
  12         $employees->create({ name=>'temp' });
  13     }
  14     $employees = $employees->search(undef,{order_by=>'position'});
  15     ok( check_positions($employees), "$class: intial positions" );
  16
  17     my $employee;
  18
  19     foreach my $position (1..$employees->count()) {
  20
  21         $employee = $employees->find({ position=>$position });
  22         $employee->move_previous();
  23         ok( check_positions($employees), "$class: move_previous( $position )" );
  24
  25         $employee = $employees->find({ position=>$position });
  26         $employee->move_next();
  27         ok( check_positions($employees), "$class: move_next( $position )" );
  28
  29         $employee = $employees->find({ position=>$position });
  30         $employee->move_first();
  31         ok( check_positions($employees), "$class: move_first( $position )" );
  32
  33         $employee = $employees->find({ position=>$position });
  34         $employee->move_last();
  35         ok( check_positions($employees), "$class: move_last( $position )" );
  36
  37         foreach my $to_position (1..$employees->count()) {
  38             $employee = $employees->find({ position=>$position });
  39             $employee->move_to($to_position);
  40             ok( check_positions($employees), "$class: move_to( $position => $to_position )" );
  41         }
  42
  43         $employee = $employees->find({ position=>$position });
  44         if ($position==1) {
  45             ok( !$employee->previous_sibling(), 'no previous sibling' );
  46             ok( $employee->next_sibling(), 'next sibling' );
  47             ok( !$employee->first_sibling(), 'no first sibling' );
  48             ok( $employee->last_sibling(), 'last sibling' );
  49         }
  50         elsif ($position==$employees->count()) {
  51             ok( $employee->previous_sibling(), 'previous sibling' );
  52             ok( !$employee->next_sibling(), 'no next sibling' );
  53             ok( $employee->first_sibling(), 'first sibling' );
  54             ok( !$employee->last_sibling(), 'no last sibling' );
  55         }
  56         else {
  57             ok( $employee->previous_sibling(), 'previous sibling' );
  58             ok( $employee->next_sibling(), 'next sibling' );
  59             ok( $employee->first_sibling(), 'first sibling' );
  60             ok( $employee->last_sibling(), 'last sibling' );
  61         }
  62
  63     }
  64 }
  65
  66 sub check_positions {
  67     my( $employees ) = @_;
  68     $employees->reset();
  69     my $expected_position = 0;
  70     while (my $employee = $employees->next()) {
  71         $expected_position ++;
  72         if ($employee->position()!=$expected_position) {
  73             return 0;
  74         }
  75     }
  76     return 1;
  77 }
  78
  79 1;