File: moose-coerce-class.t

package info (click to toggle)
libthrowable-perl 0.200012-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 172 kB
  • ctags: 8
  • sloc: perl: 303; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 299 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!perl
use strict;
use warnings;
use Test::More;

{
    package MyClass;
    use Moose;
    with 'StackTrace::Auto';
}

ok(my $obj = eval { MyClass->new }, "Create Moose object")
    or diag $@;

isa_ok($obj, "MyClass");
isa_ok($obj->stack_trace, "Devel::StackTrace", 'The trace');

done_testing();