t/601-tiny-mouse.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 2;
   5
   6 do {
   7     package Class;
   8     use Mouse::Tiny;
   9
  10     has attr => (
  11         is => 'rw',
  12     );
  13
  14     package Class2;
  15     use Mouse;
  16
  17     has attr => (
  18         is => 'rw',
  19     );
  20 };
  21
  22 is(Class->new(attr => 'a')->attr, 'a');
  23 is(Class2->new(attr => 'b')->attr, 'b');
  24