CPAN::Groonga

                                {
    local $TODO = q|running old APT|;
    isnt -s $fsra, $msg->{size}, q|no way|;
    isnt $fafc->{message}{md5_hash}, $msg->{md5_hash}, q|[copy:] overwrites| }
is $f

uri => qq|copy:$fsra|                      },
            q|[request] fails with unabsolute uri|;
isnt $fafc->{message}{message}, $faff->{message}{message},
  q|and the {$message{Message}} differs tho

uri => qq|copy:$fsra|                      },
           q|[request] fails for double slash uri|;
isnt $fafc->{message}{message}, $faff->{message}{message},
  q|and {$message{Message}} differs again|;

he same|;
isnt +(stat $ftrg)[2], (stat $fsrc)[2], q|source's permissions aren't passed|;
TODO:                                                 {
    local $TODO = q|running old APT|;
    isnt +( stat 

sage}, qr{\bpermission}i,
      q|message is enough|;
    ok !-f $ftrg, q|target is created|;
    isnt -s _, 0, q|and no size| }

$fsrc = FAFTS_tempfile
  nick => q|ftage5d5|, dir => $dira, content =>

q|running old APT|;
    ok !!$fafc->{message}{message}, q|and I<$message{Message}> is unset|;
    isnt +(stat $ftrg)[2] & 0777, 0604, q|and permissions are overriden| }

$fsrc = FAFTS_tempfile
  nick 

                 },
                                                   q|[gain] succeedes twice|;
isnt $faf->{message}{md5_hash} || $faf->{message}{filename}, $done,
 q|retrieved files are different|;

                 },
                                               q|[gain] succeedes twice yet|;
isnt $faf->{message}{md5_hash}, $done, q|retrieved files are different|;
$done = $faf->{message}{md5_h

           {
      skip qq|$tag tag+afa8 no samples|, 1                unless $data[$tick];
      isnt $data[$tick]{size}, $data[$tick]{back},
        qq|$tag {size} != {back} at TP| }
    SKIP:      

         {
        skip qq|$tag tag+a9f2 no samples|, 1              unless $data[$tick];
        isnt $data[$tick-1]{filename}, $data[$tick-1]{tmp},
          qq|$tag {filename} ne {tmp} before TP| }

                 },
                                                   q|[gain] succeedes twice|;
isnt $faf->{message}{md5_hash} || $faf->{message}{filename}, $done,
  q|and those files differ|;
ok -f

                 },
                                             q|[gain] succeedes twice again|;
isnt $faf->{message}{md5_hash} || $faf->{message}{uri}, $done,
  q|and those files differ|;
ok -f $ftg

    q|fails again with double-slash|;
ok $faf->{message}{message}, q|{$message{message}} is set|;
isnt $faf->{message}{message}, $msg,
  q|and {message{Message}} differs with previous|;

is_deeply [ F