#!/usr/bin/perl

use strict;
use warnings;

use Number::Continuation qw(continuation);
use Test::More tests => 3;

my @sets = ([ '1 2 6 7 8 9 10 22 34 56 87 88 89 90 120 121 132',
              [[1,2],[6,7,8,9,10],[22],[34],[56],[87,88,89,90],[120,121],[132]] ],
            [ '500 515 516 520 521 523 8 9 10 1 2 3 5 4 3',
              [[500],[515,516],[520,521],[523],[8,9,10], [1,2,3], [5,4,3]] ],
            [ '1000 2004 2000 1999 1998 -1 3 4 5 27 38 39',
              [[1000],[2004],[2000,1999,1998],[-1],[3,4,5],[27],[38,39]] ]);

foreach my $set (@sets) {
    my @got = continuation($set->[0]);
    is_deeply(\@got, $set->[1]);
}