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