make sure this test doesn't hang forever if there's a bug

1 files changed, 4 insertions, 0 deletions

diff --git a/t/basic.t b/t/basic.t
index c1963ef..3997271 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -17,6 +17,10 @@ SCRIPT
 my $crlf = "\x0d\x0a";
 
 $pty->spawn($^X, '-Ilib', '-e', $script);
+
+# just in case
+alarm 60;
+
 $pty->write("foo\n");
 is($pty->read(undef, 5), "foo$crlf");
 is($pty->read(undef, 5), "foo$crlf");