t/030_roles/042_compose_overloading.t

   1 use strict;
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5 use warnings;
   6 use Test::More;
   7
   8 {
   9     package Foo;
  10     use Mouse::Role;
  11
  12     use overload
  13         q{""}    => sub { 42 },
  14         fallback => 1;
  15
  16     no Mouse::Role;
  17 }
  18
  19 {
  20     package Bar;
  21     use Mouse;
  22     with 'Foo';
  23     no Mouse;
  24 }
  25
  26 my $bar = Bar->new;
  27
  28 TODO: {
  29     local $TODO = "the special () method isn't properly composed into the class";
  30     is("$bar", 42, 'overloading can be composed');
  31 }
  32
  33 done_testing;