add a regression test for an overflow

diff --git a/fortune-mod/tests/t/valgrind.t b/fortune-mod/tests/t/valgrind.t
index 2790d88e45d9e97e416eaa5194d7354ae2a8e80f..97123fbc234221150ce8912b907b01de640d585a 100644 (file)
--- a/fortune-mod/tests/t/valgrind.t
+++ b/fortune-mod/tests/t/valgrind.t
@@ -10,7 +10,7 @@ if ( $^O eq "MSWin32" )
 {
     plan skip_all => 'valgrind is not available on Windows';
 }
-plan tests => 5;
+plan tests => 6;
 
 my $obj = Test::RunValgrind->new( {} );
 
@@ -63,3 +63,13 @@ $obj->run(
         blurb  => 'strfile overflow test',
     }
 );
+
+# TEST
+$obj->run(
+    {
+        log_fn => './fortune--unstr-buffer-overflow.valgrind-log',
+        prog   => './unstr',
+        argv   => [ scalar( "AAAAAAAAAAAAAAAA/" x 1000 ) ],
+        blurb  => 'unstr overflow test',
+    }
+);