Add tests for passing POSIX::Termios->getcc() out of range subscripts.

diff --git a/ext/POSIX/t/termios.t b/ext/POSIX/t/termios.t
index e68fb5a..636efe1 100644 (file)
--- a/ext/POSIX/t/termios.t
+++ b/ext/POSIX/t/termios.t
@@ -54,6 +54,11 @@ if (defined $termios) {
        is($@, '', "calling getcc($i)");
        like($r, qr/\A-?[0-9]+\z/, 'returns an integer');
     }
        is($@, '', "calling getcc($i)");
        like($r, qr/\A-?[0-9]+\z/, 'returns an integer');
     }

+    for my $i (NCCS, ~0) {
+       my $r = eval { $termios->getcc($i) };
+       like($@, qr/\ABad getcc subscript/, "calling getcc($i)");
+       is($r, undef, 'returns undef')
+    }

 
     for my $method (qw(getcflag getiflag getispeed getlflag getoflag getospeed)) {
        my $r = eval { $termios->$method() };
 
     for my $method (qw(getcflag getiflag getispeed getlflag getoflag getospeed)) {
        my $r = eval { $termios->$method() };