#!perl

use strict;
use warnings;
use Test::More tests => 7;

package foo;
sub s { return 'foo'; };
package foo2;
sub t { return 'blah'; };

require Class::Mixin;
import Class::Mixin to => 'foo';
Class::Mixin::resync();

package main;

ok( foo->can('s'), 'foo can s' )
  && is( foo->s, 'foo', 'foo::s() matches' );
ok( foo->can('t'), 'foo can t' )
  && is( foo->t, 'blah', 'foo::t() matches' );

ok( ! foo2->can('s'), "foo2 can't s" );
ok( foo2->can('t'), 'foo2 can t' )
  && is( foo2->t, 'blah', 'foo2::t() matches' );