--- /dev/null
+#!perl -Tw
+
+use warnings;
+use strict;
+use Test::More tests => 3;
+
+BEGIN {
+ use_ok( 'WWW::Mechanize' );
+}
+
+my $mech = WWW::Mechanize->new();
+isa_ok( $mech, 'WWW::Mechanize' );
+
+my $clone = $mech->clone();
+isa_ok( $clone, 'WWW::Mechanize' );