1use 5.014;
2
3use lib 't/lib';
4
5use strict;
6use warnings;
7
8use Test::Auto;
9use Test::More;
10
11=name
12
13Test::Auto::Types
14
15=abstract
16
17Test-Auto Type Constraints
18
19=synopsis
20
21  package main;
22
23  use Test::Auto::Types;
24
25  1;
26
27=description
28
29This package provides type constraints for L<Test::Auto>.
30
31=inherits
32
33Types::Standard
34
35=type Parser
36
37  Parser
38
39=type-parent Parser
40
41  Object
42
43=type-library Parser
44
45Test::Auto::Types
46
47=type-composite Parser
48
49  InstanceOf['Test::Auto::Parser']
50
51=type-example-1 Parser
52
53  require Test::Auto;
54  require Test::Auto::Parser;
55
56  my $test = Test::Auto->new('t/Test_Auto.t');
57  my $parser = Test::Auto::Parser->new(source => $test);
58
59=type Source
60
61  Source
62
63=type-parent Source
64
65  Object
66
67=type-library Source
68
69Test::Auto::Types
70
71=type-composite Source
72
73  InstanceOf['Test::Auto']
74
75=type-example-1 Source
76
77  require Test::Auto;
78
79  my $test = Test::Auto->new('t/Test_Auto.t');
80
81=type Strings
82
83  Strings
84
85=type-library Strings
86
87Test::Auto::Types
88
89=type-composite Strings
90
91  ArrayRef[Str]
92
93=type-example-1 Strings
94
95  ['abc', 123]
96
97=type Subtests
98
99  Subtests
100
101=type-parent Subtests
102
103  Object
104
105=type-library Subtests
106
107Test::Auto::Types
108
109=type-composite Subtests
110
111  InstanceOf['Test::Auto::Subtests']
112
113=type-example-1 Subtests
114
115  require Test::Auto;
116  require Test::Auto::Parser;
117  require Test::Auto::Subtests;
118
119  my $test = Test::Auto->new('t/Test_Auto.t');
120  my $parser = Test::Auto::Parser->new(source => $test);
121  my $subs = Test::Auto::Subtests->new(parser => $parser);
122
123=cut
124
125package main;
126
127my $test = Test::Auto->new(__FILE__);
128
129my $subs = $test->subtests->standard;
130
131$subs->synopsis(sub {
132  my ($tryable) = @_;
133
134  ok my $result = $tryable->result, 'result ok';
135
136  $result;
137});
138
139ok 1 and done_testing;
140