← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libtest-moose-more-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to t/is_anon.t

  • Committer: Package Import Robot
  • Author(s): gregor herrmann
  • Date: 2013-12-22 00:29:19 UTC
  • Revision ID: package-import@ubuntu.com-20131222002919-dknxlpjpbkvwoks2
Tags: upstream-0.022
Import upstream version 0.022

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/is_anon.t
 
1
use strict;
 
2
use warnings;
 
3
 
 
4
use Test::Builder::Tester;
 
5
use Moose::Util 'with_traits';
 
6
use Test::More;
 
7
use Test::Moose::More;
 
8
use TAP::SimpleOutput 'counters';
 
9
 
 
10
{ package TestRole; use Moose::Role; use namespace::autoclean; }
 
11
{ package TestClass; use Moose; }
 
12
 
 
13
# initial tests, covering the most straight-forward cases (IMHO)
 
14
 
 
15
my $anon_class = with_traits('TestClass' => 'TestRole');
 
16
my $anon_role  = Moose::Meta::Role
 
17
    ->create_anon_role(weaken => 0)
 
18
    ->name
 
19
    ;
 
20
 
 
21
note 'simple anon class';
 
22
{
 
23
    my ($_ok, $_nok, $_skip) = counters();
 
24
    test_out $_ok->("$anon_class is anonymous");
 
25
    is_anon $anon_class;
 
26
    test_test 'is_anon works correctly on anon class';
 
27
}
 
28
 
 
29
note 'simple anon role';
 
30
{
 
31
    my ($_ok, $_nok, $_skip) = counters();
 
32
    test_out $_ok->("$anon_role is anonymous");
 
33
    is_anon $anon_role;
 
34
    test_test 'is_anon works correctly on anon role';
 
35
}
 
36
 
 
37
note 'simple !anon class';
 
38
{
 
39
    my ($_ok, $_nok, $_skip) = counters();
 
40
    test_out $_nok->('TestClass is anonymous');
 
41
    test_fail 1;
 
42
    is_anon 'TestClass';
 
43
    test_test 'is_anon works correctly on !anon class';
 
44
}
 
45
 
 
46
note 'simple !anon role';
 
47
{
 
48
    my ($_ok, $_nok, $_skip) = counters();
 
49
    test_out $_nok->('TestRole is anonymous');
 
50
    test_fail 1;
 
51
    is_anon 'TestRole';
 
52
    test_test 'is_anon works correctly on !anon role';
 
53
}
 
54
 
 
55
done_testing;