From 3c91f1b401896f4a35e94a88c117c67e83137e9e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 6 Jul 2009 22:18:04 -0500
Subject: update some tests that accessed the hashref directly

---
 t/001-open-close.t | 2 +-
 t/002-spawn.t      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/001-open-close.t b/t/001-open-close.t
index 8ea5c69..1c9eed1 100644
--- a/t/001-open-close.t
+++ b/t/001-open-close.t
@@ -6,4 +6,4 @@ use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
 $pty->close;
-ok(!defined($pty->{pty}), "closing a pty before a spawn");
+ok(!$pty->opened, "closing a pty before a spawn");
diff --git a/t/002-spawn.t b/t/002-spawn.t
index 6924f85..620a57a 100644
--- a/t/002-spawn.t
+++ b/t/002-spawn.t
@@ -13,4 +13,4 @@ ok(!$pty->is_active, "killing a subprocess");
 $pty->spawn("$^X -ple ''");
 $pty->close;
 ok(!$pty->is_active, "auto-killing a pty with close()");
-ok(!defined($pty->{pty}), "closing a pty after a spawn");
+ok(!$pty->opened, "closing a pty after a spawn");
-- 
cgit v1.2.3