X-Git-Url: http://git.shiar.nl/perl/list-index.git/blobdiff_plain/44cee0a6786540b06318e2e991cd1a665519ddaf..e2a186365224032ff37caac824d50c9b43130952:/t/10-ranges.t

diff --git a/t/10-ranges.t b/t/10-ranges.t
index 5c994c1..3a465b8 100644
--- a/t/10-ranges.t
+++ b/t/10-ranges.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 10;
 use Test::NoWarnings;
 use Data::Dump 'pp';
 
@@ -165,6 +165,16 @@ subtest 'modulo' => sub {
 	);
 };
 
+subtest 'corner cases' => sub {
+	plan tests => 1;
+
+	is_deeply(
+		List::Index->new->ranges(['foo','bar']),
+		['-'],
+		'2 rows 1 page'
+	);
+};
+
 subtest 'context' => sub {
 	plan tests => 4;
 	my @data = qw( baa1 baa2  baa3 baaa  bbc cbc  daaa ea  eaaa zed );