Move is_valid_class_name into XS

[gitmo/Mouse.git] / t / 001_mouse / 051_throw_error.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use Test::Exception;

{
    package Role;
    use Mouse::Role;

    sub rmethod{
        $_[0]->meta->throw_error('bar');
    }

    package Class;
    use Mouse;

    with 'Role';

    sub cmethod{
        $_[0]->meta->throw_error('foo');
    }
}


throws_ok {
    Class->new->cmethod();
} qr/\b foo \b/xms;

throws_ok {
    Class->cmethod();
} qr/\b foo \b/xms;



throws_ok {
    Class->new->rmethod();
} qr/\b bar \b/xms;

throws_ok {
    Class->rmethod();
} qr/\b bar \b/xms;