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

1 files changed, 21 insertions, 0 deletions

diff --git a/ext/POSIX/t/termios.t b/ext/POSIX/t/termios.t
index 8df07be04d..0160988c3d 100644
--- 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();