# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### use Test::More tests => 3; BEGIN { use_ok('HTML::Mail') }; ######################### my $html_mail = HTML::Mail->new( HTML => '

Test Persistence

', Text => 'Test Persistence', From => 'plank@cpan.org', To => 'plank@cpan.org', Subject => 'Test Persistence', ); my $serial; ok($serial = $html_mail->dump ,'Object was serialized'); ok(HTML::Mail->restore($serial) ,'Object restored from serialization');