1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/local/bin/perl
use strict;
require './scripts/testlib.pl';
chomp(my $host=`../config.guess | xargs ../config.sub`);
my $bindir="../bin.$host/";
my $resdir="res/";
my $exec_resdir="bugcase1";
my $bin="${bindir}mk_mdef_gen";
my $filler="${exec_resdir}/time.filler";
my $phonelist="${exec_resdir}/time.phonelist";
test_this("$bin -phnlstfn $phonelist -oalltphnmdef all.mdef -fdictfn $filler -dictfn ./res/cmudict.0.6d","DRY RUN of hack itree max cell bug");
unlink("all.mdef");
|
