diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2007-07-18 13:20:41 +0000 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2007-07-18 13:20:41 +0000 |
| commit | e53f5506691e0a3a1e4749bc5bd6a4c157b412d8 (patch) | |
| tree | 4661904e52d6a7a98cc54c746a23dfd580099230 /t | |
| parent | f673da4c1125bddc39c33074ed2c3eca0eaa7ab8 (diff) | |
r32104@knight: rjbs | 2007-07-18 09:19:39 -0400
test and doc fixes
fix Mail::Internet newline garbage
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/Test/EmailAbstract.pm | 1 | ||||
| -rw-r--r-- | t/unknown.t | 13 |
2 files changed, 13 insertions, 1 deletions
diff --git a/t/lib/Test/EmailAbstract.pm b/t/lib/Test/EmailAbstract.pm index c192cd6..e052664 100644 --- a/t/lib/Test/EmailAbstract.pm +++ b/t/lib/Test/EmailAbstract.pm @@ -1,5 +1,4 @@ use strict; -use warnings; package Test::EmailAbstract; use Test::More; diff --git a/t/unknown.t b/t/unknown.t new file mode 100644 index 0000000..36bc507 --- /dev/null +++ b/t/unknown.t @@ -0,0 +1,13 @@ +use strict; + +use Test::More; + +plan tests => 2; + +use_ok("Email::Abstract"); + +my $object = bless [] => "Totally::Unknown"; + +my $abs = eval { Email::Abstract->new($object); }; + +like($@, qr/handle/, "exception on unknown object type"); |