#!perl -T

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

eval q{
package foo;
use Class::Mixin;
};
is( $@, '', "clean return w/no params" );

eval q{
package foo;
use Class::Mixin blah => 1;
};
like( $@, qr/^Must mixin 'to' or 'from' something /, "croak w/o to or from" );

ok( $INC{'Class/Mixin.pm'}, 'Class::Mixin still loaded' );