Navigation

← Previous Changeset
Next Changeset →

Changeset 2133

Timestamp:

04/30/07 13:43:27 (2 years ago)

Author:

kmaclean

Message:

update Nightly_test scripts

Files:

Trunk/Scripts/Testing_scripts/Nightly_test.pm (modified) (8 diffs)

Legend:

: Unmodified
: Added
: Removed
: Modified
: Copied
: Moved

Trunk/Scripts/Testing_scripts/Nightly_test.pm

r2115	r2133
30	30	####################################################################
31	31	sub Process {
32		my ($parameters ) = @_;
33		my %parms = %$parameters;
34		my $debug = $parms{"debug"};
35		my $HTKbin = $parms{"HTKBin"};
36		my $Nightly_test_dir = $parms{"Nightly_test_dir"};
37		print ("Process-CurrentAM_16kHz_16bit:" . $parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;
	32	my ($parms ) = @_;
	33	my $debug = $$parms{"debug"};
	34	my $HTKbin = $$parms{"HTKBin"};
	35	my $Nightly_test_dir = $$parms{"Nightly_test_dir"};
	36	print ("Process-CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;
38	37	$command = ("cd $Nightly_test_dir && perl $HTKbin/prompts2mlf testref.mlf testprompts"); print "$command\n" if $debug; system($command);
39	38	my $disclaimer = "DISCLAIMER: this is a sanity test only, and is not to be regarded as a valid test of the VoxForge Acoustic Models!
…	…
48	47	\n";
49	48
50		process16kHz_16bit(\%parms, $disclaimer) \|\| die "Nightly_test error: $?";
51		process8kHz_16bit(\%parms, $disclaimer)\|\| die "Nightly_test error: $?";
	49	process16kHz_16bit($parms, $disclaimer) \|\| die "Nightly_test error: $?";
	50	process8kHz_16bit($parms, $disclaimer)\|\| die "Nightly_test error: $?";
52	51	return 1;
53	52	}
…	…
56	55	####################################################################
57	56	sub process16kHz_16bit {
58		my ($parameters, $disclaimer ) = @_;
59		my %parms = %$parameters;
60		my $debug = $parms{"debug"};
61		my $Nightly_dirname = $parms{"Nightly_dirname"};
62		my $NightlyAM_16kHz_16bit = $parms{"NightlyAM_16kHz_16bit"};
63		my $CurrentBuild_dir = $parms{"CurrentBuild_dir"};
64		my $CurrentAM_16kHz_16bit = $parms{"CurrentAM_16kHz_16bit"};
65		print ("process CurrentAM_16kHz_16bit:" . $parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;
	57	my ($parms, $disclaimer ) = @_;
	58	my $debug = $$parms{"debug"};
	59	my $Nightly_dirname = $$parms{"Nightly_dirname"};
	60	my $NightlyAM_16kHz_16bit = $$parms{"NightlyAM_16kHz_16bit"};
	61	my $CurrentBuild_dir = $$parms{"CurrentBuild_dir"};
	62	my $CurrentAM_16kHz_16bit = $$parms{"CurrentAM_16kHz_16bit"};
	63	print ("process CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;
66	64	open(OUTPUT, ">$NightlyAM_16kHz_16bit/TestResults") or die ("cannot write to TestResults file"); # open for output
67	65	print OUTPUT "$disclaimer\n";
68	66	print OUTPUT "Testing Acoustic Models created in: $Nightly_dirname\n\n";
69		HTK_16kHz_16bit(\%parms, $NightlyAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
70		Julian_16kHz_16bit(\%parms, $NightlyAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
	67	HTK_16kHz_16bit($parms, $NightlyAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
	68	Julian_16kHz_16bit($parms, $NightlyAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
71	69	PrintNotes();
72		print OUTPUT "\n\n\n================================================================================================================\n";
73		print OUTPUT "For comparison purposes, see below for the same Tests on the most current release of the VoxForge Acoustic Models:
74		($CurrentBuild_dir)\n";
75		print OUTPUT "================================================================================================================\n";
76		HTK_16kHz_16bit(\%parms, $CurrentAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
77		Julian_16kHz_16bit(\%parms, $CurrentAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
78		PrintNotes();
	70	# !!!!!!
	71	# print OUTPUT "\n\n\n================================================================================================================\n";
	72	# print OUTPUT "For comparison purposes, see below for the same Tests on the most current release of the VoxForge Acoustic Models:
	73	#($CurrentBuild_dir)\n";
	74	# print OUTPUT "================================================================================================================\n";
	75	# HTK_16kHz_16bit(\%parms, $CurrentAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
	76	# Julian_16kHz_16bit(\%parms, $CurrentAM_16kHz_16bit) \|\| die "Nightly_test error: $?";
	77	# PrintNotes();
	78	# !!!!!!
79	79	close(OUTPUT);
80	80	return 1;
…	…
82	82
83	83	sub process8kHz_16bit {
84		my ($parameters, $disclaimer ) = @_;
85		my %parms = %$parameters;
86		my $debug = $parms{"debug"};
87		my $Nightly_dirname = $parms{"Nightly_dirname"};
88		my $NightlyAM_8kHz_16bit = $parms{"NightlyAM_8kHz_16bit"};
89		my $CurrentBuild_dir = $parms{"CurrentBuild_dir"};
90		my $CurrentAM_8kHz_16bit = $parms{"CurrentAM_8kHz_16bit"};
	84	my ($parms, $disclaimer ) = @_;
	85	my $debug = $$parms{"debug"};
	86	my $Nightly_dirname = $$parms{"Nightly_dirname"};
	87	my $NightlyAM_8kHz_16bit = $$parms{"NightlyAM_8kHz_16bit"};
	88	my $CurrentBuild_dir = $$parms{"CurrentBuild_dir"};
	89	my $CurrentAM_8kHz_16bit = $$parms{"CurrentAM_8kHz_16bit"};
91	90	open(OUTPUT, ">$NightlyAM_8kHz_16bit/TestResults") or die ("cannot write to TestResults file"); # open for output
92	91	print OUTPUT "$disclaimer\n";
93		HTK_8kHz_16bit(\%parms, $NightlyAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
94		Julian_8kHz_16bit(\%parms, $NightlyAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
	92	HTK_8kHz_16bit($parms, $NightlyAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
	93	Julian_8kHz_16bit($parms, $NightlyAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
95	94	PrintNotes();
96		print OUTPUT "\n\n\n================================================================================================================\n";
97		print OUTPUT "For comparison purposes, see below for the same Tests on the most current release of the VoxForge Acoustic Models:
98		($CurrentBuild_dir)\n";
99		print OUTPUT "================================================================================================================\n";
100		print OUTPUT "$disclaimer\n";
101		HTK_8kHz_16bit(\%parms, $CurrentAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
102		Julian_8kHz_16bit(\%parms, $CurrentAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
103		PrintNotes();
	95	# !!!!!!
	96	# print OUTPUT "\n\n\n================================================================================================================\n";
	97	# print OUTPUT "For comparison purposes, see below for the same Tests on the most current release of the VoxForge Acoustic Models:
	98	#($CurrentBuild_dir)\n";
	99	# print OUTPUT "================================================================================================================\n";
	100	# print OUTPUT "$disclaimer\n";
	101	# HTK_8kHz_16bit(\%parms, $CurrentAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
	102	# Julian_8kHz_16bit(\%parms, $CurrentAM_8kHz_16bit) \|\| die "Nightly_test error: $?";
	103	# PrintNotes();
	104	# !!!!!!
104	105	close(OUTPUT);
105	106	return 1;
…	…
107	108
108	109	sub HTK_16kHz_16bit {
109		my ($parameters, $AM_Dir ) = @_;
110		my %parms = %$parameters;
111		my $debug = $parms{"debug"};
112		my $LexiconDirectory = $parms{"LexiconDirectory"};
113		my $HTKbin = $parms{"HTKBin"} ;
114		my $Nightly_test_dir = $parms{"Nightly_test_dir"};
115		my $testing = $parms{"testing"};
	110	my ($parms, $AM_Dir ) = @_;
	111	my $debug = $$parms{"debug"};
	112	my $LexiconDirectory = $$parms{"LexiconDirectory"};
	113	my $HTKbin = $$parms{"HTKBin"} ;
	114	my $Nightly_test_dir = $$parms{"Nightly_test_dir"};
	115	my $testing = $$parms{"testing"};
116	116	my $wordinspen = "0.0";
117	117	my $gramscfact = "1.0";
…	…
131	131
132	132	sub Julian_16kHz_16bit {
133		my ($parameters, $AM_Dir ) = @_;
134		my %parms = %$parameters;
135		my $debug = $parms{"debug"};
136		my $HTKbin = $parms{"HTKBin"} ;
137		my $JulianBin = $parms{"JulianBin"};
138		my $Nightly_test_dir = $parms{"Nightly_test_dir"};
139		my $testing = $parms{"testing"};
	133	my ($parms, $AM_Dir ) = @_;
	134	my $debug = $$parms{"debug"};
	135	my $HTKbin = $$parms{"HTKBin"} ;
	136	my $JulianBin = $$parms{"JulianBin"};
	137	my $Nightly_test_dir = $$parms{"Nightly_test_dir"};
	138	my $testing = $$parms{"testing"};
140	139	my $penalty1="0.5";
141	140	my $penalty2="100.0";
…	…
159	158
160	159	sub HTK_8kHz_16bit {
161		my ($parameters, $AM_Dir ) = @_;
162		my %parms = %$parameters;
163		my $debug = $parms{"debug"};
164		my $LexiconDirectory = $parms{"LexiconDirectory"};
165		my $HTKbin = $parms{"HTKBin"} ;
166		my $Nightly_test_dir = $parms{"Nightly_test_dir"};
167		my $testing = $parms{"testing"};
	160	my ($parms, $AM_Dir ) = @_;
	161	my $debug = $$parms{"debug"};
	162	my $LexiconDirectory = $$parms{"LexiconDirectory"};
	163	my $HTKbin = $$parms{"HTKBin"} ;
	164	my $Nightly_test_dir = $$parms{"Nightly_test_dir"};
	165	my $testing = $$parms{"testing"};
168	166	my $wordinspen = "10.0";
169	167	my $gramscfact = "5.0";
…	…
183	181
184	182	sub Julian_8kHz_16bit {
185		my ($parameters, $AM_Dir ) = @_;
186		my %parms = %$parameters;
187		my $debug = $parms{"debug"};
188		my $HTKbin = $parms{"HTKBin"} ;
189		my $JulianBin = $parms{"JulianBin"};
190		my $Nightly_test_dir = $parms{"Nightly_test_dir"};
191		my $testing = $parms{"testing"};
	183	my ($parms, $AM_Dir ) = @_;
	184	my $debug = $$parms{"debug"};
	185	my $HTKbin = $$parms{"HTKBin"} ;
	186	my $JulianBin = $$parms{"JulianBin"};
	187	my $Nightly_test_dir = $$parms{"Nightly_test_dir"};
	188	my $testing = $$parms{"testing"};
192	189	my $penalty1="50.0";
193	190	my $penalty2="100.0";

Dev Site (Scripts)

Navigation

Changeset 2133

Legend:

Trunk/Scripts/Testing_scripts/Nightly_test.pm

Download in other formats: