view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
is $acme->spell('takns'), 'tanks';
 
(my $dead = Test::MockObject->new)->mock('get', sub { return  {
        'reason' => 'Not Found',
         'headers' => {
                                         'vary' => 'Accept-Encoding',
                                         'server' => 'nginx/1.10.0 (Ubuntu)',
                                         'connection' => 'keep-alive',
                                         'date' => 'Mon, 13 Mar 2017 15:49:56 GMT',
                                         'content-length' => '178',
                                         'content-type' => 'text/html'
                           },
        'protocol' => 'HTTP/1.1',
        'status' => '404',
};});
 
my $dead_client = Acme::ICan::tSpell->new(
    tiny => $dead,
);