git.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/clone.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5 use Test::More tests => 3;
   6
   7 BEGIN {
   8     use_ok( 'WWW::Mechanize' );
   9 }
  10
  11 my $mech = WWW::Mechanize->new();
  12 isa_ok( $mech, 'WWW::Mechanize' );
  13
  14 my $clone = $mech->clone();
  15 isa_ok( $clone, 'WWW::Mechanize' );