1#!/perl 2 3use 5.010; 4use strict; 5use warnings; 6use Test::Data::Unixish; 7use Test::More 0.96; 8 9test_dux_func( 10 func => 'tail', 11 tests => [ 12 {in=>[1..20], args=>{}, out=>[11..20]}, 13 {in=>[1..20], args=>{items=>2}, out=>[19..20]}, 14 {in=>[1..20], args=>{items=>1}, out=>[20]}, 15 {in=>[1..20], args=>{items=>0}, out=>[]}, 16 ], 17); 18 19done_testing; 20