From b061ca22d27fdf0a0babfb4a07e73d763d2de81d Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 5 Mar 2012 17:55:26 -0600 Subject: make sure this test doesn't hang forever if there's a bug --- t/basic.t | 4 ++++ 1 file changed, 4 insertions(+) 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"); -- cgit v1.2.3-54-g00ecf