#!perl
# Right errors for bad things
# Mmmm... perhaps I should be checking for more!
use Test::More tests => 3;
use strict;
use warnings;
use Data::Iterator::Hierarchical;
my $sth = [
[ 1, 1, 999 ],
[ 2, 2, 2 ],
[ bless {}, 'Data::Iterator::Hierarchical::Test' ],
];
my $it = hierarchical_iterator($sth);
ok(!eval { $it->(); 1 },'dies in void context');
$@='';
ok(!eval { my $q = $it->(); 1 },'dies in scalar context');
like($@,qr/non-LIST context/,'"non-LIST context" error');