1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use autodie;
6
7my $targets = '';
8foreach my $f (qw (00-special 02-orig 05-common)) {
9    my @modes = qw(ultra fast normal slow bad-spellers);
10    foreach my $mode (@modes) {
11        last if $f eq '05-common' && $mode eq 'bad-spellers';
12        print <<"---";
13suggest-$f-${mode}: prep
14	suggest/run-batch "\${ASPELL_WRAP} \${ASPELL} --sug-mode=$mode" suggest/$f.tab tmp/$f-$mode-actual
15	suggest/comp suggest/$f-$mode-expect.res tmp/$f-$mode-actual.res 1 > tmp/$f-$mode.diff
16	rm tmp/$f-$mode.diff
17	echo "ok (suggest reg. $f $mode)" >> test-res
18---
19        $targets .= " suggest-$f-${mode}";
20    }
21    foreach my $mode (qw(ultra normal)) {
22        print <<"---";
23suggest-$f-${mode}-nokbd: prep
24	suggest/run-batch "\${ASPELL_WRAP} \${ASPELL} --keyboard=none --sug-mode=$mode" suggest/$f.tab tmp/$f-$mode-nokbd-actual
25	suggest/comp suggest/$f-$mode-nokbd-expect.res tmp/$f-$mode-nokbd-actual.res 1 > tmp/$f-$mode-nokbd.diff
26	rm tmp/$f-$mode-nokbd.diff
27	echo "ok (suggest reg. $f $mode nokbd)" >> test-res
28---
29        $targets .= " suggest-$f-${mode}-nokbd";
30    }
31}
32my $f = '00-special';
33foreach my $mode (qw(ultra fast normal slow bad-spellers)) {
34    print <<"---";
35suggest-$f-${mode}-camel: prep
36	suggest/run-batch "\${ASPELL_WRAP} \${ASPELL} --camel-case --sug-mode=$mode" suggest/$f.tab tmp/$f-$mode-camel-actual
37	suggest/comp suggest/$f-$mode-camel-expect.res tmp/$f-$mode-camel-actual.res 1 > tmp/$f-$mode-camel.diff
38	rm tmp/$f-$mode-camel.diff
39	echo "ok (suggest reg. $f $mode camel)" >> test-res
40---
41    $targets .= " suggest-$f-${mode}-camel";
42}
43
44print ".PHONY: $targets\n";
45print "suggest: $targets\n";
46
47
48