#!/usr/bin/perl -wT

use strict;
use Test::More tests => 773;
use_ok('Data::Page');

my $name;

foreach my $line (<DATA>) {
  chomp $line;
  next unless $line;

  if ($line =~ /^# ?(.+)/) {
    $name = $1;
    next;
  }

  print "Line is: $line\n";
  my @vals = map { /^undef$/ ? undef : /^''$/ ? '' : $_ } split /\s+/, $line;

  my $page = Data::Page->new(@vals[ 0, 1, 2 ]);
  print "Old style\n";
  check($page, $name, @vals);

  $page = Data::Page->new();
  $page->total_entries($vals[0]);
  $page->entries_per_page($vals[1]);
  $page->current_page($vals[2]);
  print "New style\n";
  check($page, $name, @vals);
}

my $page = Data::Page->new(0, 10);
isa_ok($page, 'Data::Page');
my @empty;
my @spliced = $page->splice(\@empty);
is(scalar(@spliced), 0, "Splice on empty is empty");

sub check {
  my ($page, $name, @vals) = @_;
  isa_ok($page, 'Data::Page');

  is($page->first_page,    $vals[3], "$name: first page");
  is($page->last_page,     $vals[4], "$name: last page");
  is($page->first,         $vals[5], "$name: first");
  is($page->last,          $vals[6], "$name: last");
  is($page->previous_page, $vals[7], "$name: previous_page");
  is($page->current_page,  $vals[8], "$name: current_page");
  is($page->next_page,     $vals[9], "$name: next_page");

  my @integers = (0 .. $vals[0] - 1);
  @integers = $page->splice(\@integers);
  my $integers = join ',', @integers;
  is($integers, $vals[10], "$name: splice");
  is($page->entries_on_this_page, $vals[11], "$name: entries_on_this_page");

  my $skipped = $vals[5] - 1;
  $skipped = 0 if $skipped < 0;
  is($page->skipped, $skipped, "$name: skipped");
}

# Format of test data: 0=number of entries, 1=entries per page, 2=current page,
# 3=first page, 4=last page, 5=first entry on page, 6=last entry on page,
# 7=previous page, 8=current page, 9=next page, 10=current entries, 11=current number of entries

__DATA__
# Initial test
50 10 1    1 5 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9            10
50 10 2    1 5 11 20 1 2 3 10,11,12,13,14,15,16,17,18,19     10
50 10 3    1 5 21 30 2 3 4 20,21,22,23,24,25,26,27,28,29     10
50 10 4    1 5 31 40 3 4 5 30,31,32,33,34,35,36,37,38,39     10
50 10 5    1 5 41 50 4 5 undef 40,41,42,43,44,45,46,47,48,49 10

# Under 10
1 10 1    1 1 1 1 undef 1 undef 0                     1
2 10 1    1 1 1 2 undef 1 undef 0,1                   2
3 10 1    1 1 1 3 undef 1 undef 0,1,2                 3
4 10 1    1 1 1 4 undef 1 undef 0,1,2,3               4
5 10 1    1 1 1 5 undef 1 undef 0,1,2,3,4             5
6 10 1    1 1 1 6 undef 1 undef 0,1,2,3,4,5           6
7 10 1    1 1 1 7 undef 1 undef 0,1,2,3,4,5,6         7
8 10 1    1 1 1 8 undef 1 undef 0,1,2,3,4,5,6,7       8
9 10 1    1 1 1 9 undef 1 undef 0,1,2,3,4,5,6,7,8     9
10 10 1   1 1 1 10 undef 1 undef 0,1,2,3,4,5,6,7,8,9  10

# Over 10
11 10 1    1 2 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9     10
11 10 2    1 2 11 11 1 2 undef 10                     1
12 10 1    1 2 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9     10
12 10 2    1 2 11 12 1 2 undef 10,11                  2
13 10 1    1 2 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9     10
13 10 2    1 2 11 13 1 2 undef 10,11,12               3

# Under 20
19 10 1    1 2 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9            10
19 10 2    1 2 11 19 1 2 undef 10,11,12,13,14,15,16,17,18    9
20 10 1    1 2 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9            10
20 10 2    1 2 11 20 1 2 undef 10,11,12,13,14,15,16,17,18,19 10

# Over 20
21 10 1    1 3 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9        10
21 10 2    1 3 11 20 1 2 3 10,11,12,13,14,15,16,17,18,19 10
21 10 3    1 3 21 21 2 3 undef 20                        1
22 10 1    1 3 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9        10
22 10 2    1 3 11 20 1 2 3 10,11,12,13,14,15,16,17,18,19 10
22 10 3    1 3 21 22 2 3 undef 20,21                     2
23 10 1    1 3 1 10 undef 1 2 0,1,2,3,4,5,6,7,8,9        10
23 10 2    1 3 11 20 1 2 3 10,11,12,13,14,15,16,17,18,19 10
23 10 3    1 3 21 23 2 3 undef 20,21,22                  3

# Zero test
0 10 1    1 1 0 0 undef 1 undef '' 0