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