1#!/usr/local/bin/perl 2 3use strict; 4use warnings; 5use Test::More qw(no_plan); 6 7my @confs = ( 8 [ ":", 10000 ], 9 [ "*", 10000 ], 10 [ "%", 10000 ], 11 [ "casket.kch", 10000 ], 12 [ "casket.kct", 10000 ], 13 [ "casket.kcd", 1000 ], 14 [ "casket.kcf", 10000 ], 15 ); 16my @formats = ( 17 "kctest.pl order '%s' '%d'", 18 "kctest.pl order -rnd '%s' '%d'", 19 "kctest.pl order -etc '%s' '%d'", 20 "kctest.pl order -rnd -etc '%s' '%d'", 21 "kctest.pl wicked '%s' '%d'", 22 "kctest.pl wicked -it 4 '%s' '%d'", 23 ); 24 25system("rm -rf casket*"); 26 27foreach my $conf (@confs) { 28 my $path = $conf->[0]; 29 my $rnum = $conf->[1]; 30 foreach my $format (@formats) { 31 my $cmd = sprintf($format, $path, $rnum); 32 my $rv = system("$^X $cmd >/dev/null"); 33 ok($rv == 0, $cmd); 34 } 35} 36 37system("rm -rf casket*") 38