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