t/basic: add test for attribute being setable

kentnl · Jul 17, 2014 · 1c44fee · 1c44fee
1 parent 17b12ca
commit 1c44fee
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/t/basic.t b/t/basic.t
@@ -18,11 +18,22 @@ subtest "Parameters for HTTP::Tiny::Mech" => sub {
     package Foo;
     @Foo::ISA = ('WWW::Mechanize');
   }
+  {
+
+    package Bar;
+    @Bar::ISA = ('WWW::Mechanize');
+  }
   my $instance = HTTP::Tiny::Mech->new( mechua => Foo->new(), );
   isa_ok( $instance,         'HTTP::Tiny' );
   isa_ok( $instance,         'HTTP::Tiny::Mech' );
   isa_ok( $instance->mechua, 'WWW::Mechanize' );
   isa_ok( $instance->mechua, 'Foo' );
+  subtest "Set mechua" => sub {
+    $instance->mechua( Bar->new() );
+    isa_ok( $instance->mechua, 'WWW::Mechanize' );
+    isa_ok( $instance->mechua, 'Bar' );
+  };
+
 };
 
 subtest "Parameters for HTTP::Tiny" => sub {