summaryrefslogtreecommitdiffstats
path: root/t/100-system.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-03-05 00:36:07 -0600
committerJesse Luehrs <doy@tozt.net>2012-03-05 00:36:07 -0600
commitf37b732fa2a9f4c4e31c602fb3309bc882400ab9 (patch)
tree1f3c7a1cf99b494ac39f8ac28d9ae041e3806418 /t/100-system.t
parent4e21bde42072a32e0a7cc515546ce9f13ecc8833 (diff)
downloadio-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.tar.gz
io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.zip
cleanups, dzil stuff, etc
Diffstat (limited to 't/100-system.t')
-rw-r--r--t/100-system.t28
1 files changed, 0 insertions, 28 deletions
diff --git a/t/100-system.t b/t/100-system.t
deleted file mode 100644
index 0be6006..0000000
--- a/t/100-system.t
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 4;
-use IO::Pty::Easy;
-
-my $pty = IO::Pty::Easy->new;
-$pty->spawn("$^X -ple ''");
-my $output;
-eval {
- local $SIG{ALRM} = sub { die "alarm\n" };
- alarm 5;
- $output = `$^X -e 'print "foo"'`;
- alarm 0;
-};
-isnt($@, "alarm\n", "system() didn't time out");
-is($output, "foo", "system() got the right value");
-$pty->kill;
-undef $output;
-eval {
- local $SIG{ALRM} = sub { die "alarm2\n" };
- alarm 5;
- $output = `$^X -e 'print "bar"'`;
- alarm 0;
-};
-isnt($@, "alarm2\n", "system() didn't time out (after kill)");
-is($output, "bar", "system() got the right value (after kill)");
-$pty->close;