From e1b070276d8c8beb0dcc76bc2c2ac070564e0c24 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 7 Mar 2012 02:21:48 -0600 Subject: make the test suite more reliable --- t/callbacks.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 't/callbacks.t') diff --git a/t/callbacks.t b/t/callbacks.t index cb99c18..250fec7 100644 --- a/t/callbacks.t +++ b/t/callbacks.t @@ -49,7 +49,7 @@ alarm 60; { my $pty = IO::Pty::Easy->new(handle_pty_size => 0); - $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script); + $pty->spawn($^X, (map {; '-I', $_ } @INC), '-e', $script); my $setup_str = full_read($pty); @@ -73,12 +73,19 @@ alarm 60; ^ MUNGE_INPUT: \s \Q$term_str\E \s \($ref\): \s fOo\n \n + (?: MUNGE_OUTPUT: \s \Q$term_str\E \s \($ref\): \s FOO$crlf \n foo$crlf MUNGE_OUTPUT: \s \Q$term_str\E \s \($ref\): \s FOO$crlf \n foo$crlf + | + MUNGE_OUTPUT: \s \Q$term_str\E \s \($ref\): \s FOO$crlf FOO$crlf + \n + foo$crlf + foo$crlf + ) $ }sx, "munge_input and munge_output got the right arguments" -- cgit v1.2.3-54-g00ecf