Add tests for POSIX::Termios->setcc().

diff --git a/ext/POSIX/t/termios.t b/ext/POSIX/t/termios.t
index 8df07be..0160988 100644 (file)
--- a/ext/POSIX/t/termios.t
+++ b/ext/POSIX/t/termios.t
@@ -123,6 +123,27 @@ if (defined $termios) {
     }
 
     testflags(map {($_, \@values)} @flags);
+
+    for my $i (0 .. NCCS-1) {
+       $t->setcc($i, 0);
+    }
+    for my $i (0 .. NCCS-1) {
+       is($t->getcc($i), 0, "getcc($i)");
+    }
+    my $c = 0;
+    for my $i (0 .. NCCS-1) {
+       $t->setcc($i, ++$c);
+    }
+    for my $i (reverse 0 .. NCCS-1) {
+       is($t->getcc($i), $c--, "getcc($i)");
+    }
+    for my $i (reverse 0 .. NCCS-1) {
+       $t->setcc($i, ++$c);
+    }
+    for my $i (0 .. NCCS-1) {
+       is($t->getcc($i), $c--, "getcc($i)");
+    }
+
 }
 
 done_testing();