r23488@knight: rjbs | 2006-07-18 18:41:16 -0400

 abstract objects that wrap concrete objects

2 files changed, 10 insertions, 5 deletions

diff --git a/t/1.t b/t/classy.t
index aefa8b6..aefa8b6 100644
--- a/t/1.t
+++ b/t/classy.t
diff --git a/t/subclass.t b/t/subclass.t
index 697bc73..f2af01d 100644
--- a/t/subclass.t
+++ b/t/subclass.t
@@ -1,13 +1,18 @@
-package MyMail;
-use base "Email::Simple";
-1;
+{
+  package MyMail;
+  use base "Email::Simple";
+}
 
 package main;
-use Test::More tests => 1;
+use Test::More tests => 3;
 use Email::Abstract;
 my $message = do { local $/; <DATA>; };
 my $x = MyMail->new($message);
-like (Email::Abstract->as_string($x), qr/Farley's/, "Round trip with subclass");
+like(Email::Abstract->as_string($x), qr/Farley's/, "Round trip with subclass");
+
+my $y = Email::Abstract->new($x);
+isa_ok($y, 'Email::Abstract');
+like($y->as_string, qr/Farley's/, "Round trip subclass via object wrapped");
 
 __DATA__
 Received: from mailman.opengroup.org ([192.153.166.9])