t/lib/RTest/UI/ViewPort/ListView.pm

   1 package RTest::UI::ViewPort::ListView;
   2
   3 use base qw/Reaction::Test::WithDB/;
   4 use Reaction::Class;
   5
   6 use Reaction::UI::ViewPort::ListView;
   7 use RTest::TestDB;
   8 use Test::More ();
   9
  10 has '+schema_class' => (default => sub { 'RTest::TestDB' });
  11
  12 has 'viewport' => (
  13   isa => 'Reaction::UI::ViewPort::ListView',
  14   is => 'rw', set_or_lazy_build('viewport'),
  15   clearer => 'clear_viewport',
  16 );
  17
  18 has 'collection' => (
  19   isa => 'DBIx::Class::ResultSet',
  20   is => 'rw', set_or_lazy_build('collection'),
  21   clearer => 'clear_collection',
  22 );
  23
  24 sub build_collection {
  25   shift->schema->resultset('Foo');
  26 }
  27
  28 sub build_viewport {
  29   my ($self) = @_;
  30   my $vp = Reaction::UI::ViewPort::ListView->new(
  31     location => 0,
  32     collection => $self->collection,
  33     ctx => $self->simple_mock_context,
  34     column_order => [qw(id first_name last_name)],
  35   );
  36   return $vp;
  37 }
  38
  39 sub null_test :Tests {
  40   my ($self) = @_;
  41   Test::More::ok(1, 'placeholder test');
  42 }
  43
  44 sub init_viewport :Tests {
  45   my ($self) = @_;
  46
  47   return "Skip as these all fail";
  48
  49   $self->clear_viewport;
  50
  51   Test::More::cmp_ok($self->viewport->page, '==', 1, "Default page");
  52   Test::More::cmp_ok($self->viewport->per_page, '==', 10, "Default per page");
  53
  54   my @columns = qw(id first_name last_name);
  55   Test::More::is_deeply($self->viewport->field_names, \@columns, "Field names");
  56   Test::More::is($self->viewport->field_label('first_name'), 'First Name', 'Field label');
  57
  58   my @rows = $self->viewport->current_rows;
  59   Test::More::cmp_ok(@rows, '==', 10, 'Row count');
  60   Test::More::isa_ok($rows[0], 'RTest::TestDB::Foo', 'First row class');
  61   Test::More::cmp_ok($rows[0]->id, '==', 1, 'First row id');
  62
  63   my $pager = $self->viewport->pager;
  64   Test::More::cmp_ok($pager->current_page, '==', 1, 'Pager current page');
  65   Test::More::cmp_ok($pager->next_page, '==', 2, 'Pager next page');
  66   Test::More::ok(!defined($pager->previous_page), 'Pager previous page');
  67   Test::More::cmp_ok($pager->entries_per_page, '==', 10, 'Pager entries per page');
  68 }
  69
  70 sub modify_viewport :Tests {
  71   my ($self) = @_;
  72
  73   return "Skip as these all fail";
  74
  75   $self->clear_viewport;
  76
  77   $self->viewport->per_page(20);
  78   $self->viewport->page(2);
  79
  80   my $pager = $self->viewport->pager;
  81
  82   Test::More::cmp_ok($pager->current_page, '==', 2, 'Pager current page');
  83   Test::More::cmp_ok($pager->last_page, '==', 5, 'Pager last page');
  84 }
  85
  86 sub viewport_to_csv :Tests {
  87   my ($self) = @_;
  88
  89   return "Skip as these all fail";
  90
  91   $self->clear_viewport;
  92
  93   $self->viewport->export_to_csv;
  94
  95   Test::More::like($self->viewport->ctx->res->body,
  96     qr/^Id,"First Name","Last Name"\r
  97 1,Joe,"Bloggs 1"\r
  98 2,John,"Smith 1"\r
  99 3,Joe,"Bloggs 2"\r
 100 4,John,"Smith 2"\r
 101 5,Joe,"Bloggs 3"\r
 102 6,John,"Smith 3"\r
 103 7,Joe,"Bloggs 4"\r
 104 8,John,"Smith 4"\r
 105 9,Joe,"Bloggs 5"\r
 106 10,John,"Smith 5"\r
 107 /, "CSV export head ok");
 108   Test::More::like($self->viewport->ctx->res->body,
 109     qr/100,John,"Smith 50"\r\n$/, "CSV export tail ok");
 110
 111 }
 112
 113 1;