gistfile1.txt

┌─[tadzik@yavin]─[~/src/github.com/sergot/HTTP-UserAgent] (master)*
└─[%]─> perl6-debug-m -Ilib t/09-ua-ssl.t
>>> LOADING t/09-ua-ssl.t
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/UserAgent.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Response.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Message.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Header.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Header/Field.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Request.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Cookies.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Cookie.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/UserAgent/Common.pm6
+ t/09-ua-ssl.t (4 - 8)
| use Test;
| 
| plan 2;
| 
| throws_like 'use HTTP::UserAgent; my $ssl = HTTP::UserAgent.new; $ssl.get(...
> bp add /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/UserAgent.pm6:110
> r
1..2
    1..3
>>> LOADING EVAL_0
+ /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/UserAgent.pm6 (108 - 112)
|             # We also need to handle 'Transfer-Encoding: chunked', which m...
|             # and assemble the response body.
|             if $response.header.field('Transfer-Encoding') eq 'chunked' {
|                 my sub recv-entire-chunk($content is rw) {
|                     if $content {
> s $response.header.field('Transfer-Encoding') eq 'chunked'
False