CELOGEEK / MooX-Options-1.4 / t / mouse.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

              
#!/usr/bin/env perl
#
# This file is part of MooX-Options
#
# This software is copyright (c) 2011 by Geistteufel <geistteufel@celogeek.fr>.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;
use Test::More;
use Test::Trap;
use Carp;
use FindBin qw/$RealBin/;
use Try::Tiny;
BEGIN {
    use Module::Load::Conditional qw/check_install/;
    plan skip_all => 'Need Mouse for this test'
        unless check_install( module => 'Mouse' );
}
{
    package t;
    use Mouse;
    use MooX::Options filter => 'Mouse';
    option 'bool'    => ( is => 'ro' );
    option 'counter' => ( is => 'ro', repeatable => 1 );
    option 'empty'   => ( is => 'ro', negativable => 1 );
    option 'split'   => ( is => 'ro', format => 'i@', autosplit => ',' );
    1;
}
{
    package r;
    use Mouse;
    use MooX::Options filter => 'Mouse';
    option 'str_req' => ( is => 'ro', format => 's', required => 1 );
    1;
}
{
    package sp_str;
    use Mouse;
    use MooX::Options filter => 'Mouse';
    option 'split_str' => ( is => 'ro', format => 's', autosplit => "," );
    1;
}
{
    package d;
    use Mouse;
    use MooX::Options;
    option 'should_die_ok' => ( is => 'ro', trigger => sub { die "ok" } );
    1;
}
{
    package multi_req;
    use Mouse;
    use MooX::Options;
    option 'multi_1' => ( is => 'ro', required => 1 );
    option 'multi_2' => ( is => 'ro', required => 1 );
    option 'multi_3' => ( is => 'ro', required => 1 );
    1;
}
{
    package t_doc;
    use Moose;
    use MooX::Options;
    option 't' => ( is => 'ro', doc => 'this is a test' );
    1;
}
subtest "Mouse" => sub {
    note "Test Mouse";
    require $RealBin . '/base.st';
};
done_testing;