diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-03-05 00:36:07 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-03-05 00:36:07 -0600 |
| commit | f37b732fa2a9f4c4e31c602fb3309bc882400ab9 (patch) | |
| tree | 1f3c7a1cf99b494ac39f8ac28d9ae041e3806418 /t/open-close.t | |
| parent | 4e21bde42072a32e0a7cc515546ce9f13ecc8833 (diff) | |
| download | io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.tar.gz io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.zip | |
cleanups, dzil stuff, etc
Diffstat (limited to 't/open-close.t')
| -rw-r--r-- | t/open-close.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/open-close.t b/t/open-close.t new file mode 100644 index 0000000..6140821 --- /dev/null +++ b/t/open-close.t @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use IO::Pty::Easy; + +my $pty = IO::Pty::Easy->new; +$pty->close; +ok(!$pty->opened, "closing a pty before a spawn"); + +done_testing; |