view release on metacpan or  search on metacpan

t/36_cmd_due.t  view on Meta::CPAN

LtiOkV3CGUUeMqGx9WptEa5suFFP09I4CC7KDzDoYc/XvSFHNahbTiJbBNnDl7GlDC6flBX0fAJt0WAb8h1kYGyrUJKld4o+
V4MZRCFPX2gN+eUqsLnH9YnTAQLZy7CEGNy+6Knkq6qpcf94w4W6Y+ADAabFiuc+QLNXU8iaZZuqpeXUNNY/ZfEkorEHiyTN
NwYvjqtfWt5xhgucLFfrjfDgh+Gql6QeWhcX24Rd8zQTnvxw5B7D6T6G+7mX53+4XJRPzCnjiE4G58Z8ve0JyDXItY12mvly
Y29DPokxzJGrB5wF1lonissV2dnV6gdUbNYo1M83VkaHmwTIWZxfFC4lpidPi8BCibG0Y8Cnx7NlU3z7D43Aan/3LwAA

eval { Acme::Tools::cmd_due('-ihz',$tmp) };
ok($@ eq "due: can not combine STDIN and args\n", 'ok die');

$p=printed { Acme::Tools::cmd_due('-ihz') };
$ok=<<"";
.desktop          1        1.30 kB    0.02%
.nls              1        6.26 kB    0.10%
.1               27      150.23 kB    2.52%
.inf              1      236.48 kB    3.97%
.fon             50      471.83 kB    7.92%
.ttf              9        4.97 MB   85.46%
Sum              89        5.82 MB  100.00%

okk('find -ls|due -ihz');

my @f;File::Find::find(sub{-f$_&&push@f,"$tmp/$_"},$tmp);