Changeset 2142
- Timestamp:
- 04/30/07 21:11:12 (2 years ago)
- Files:
-
- Trunk/Scripts/Testing_scripts/NightlyTest.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Testing_scripts/NightlyTest.pm
r2136 r2142 33 33 my $HTKbin = $$parms{"HTKBin"}; 34 34 my $Nightly_test_dir = $$parms{"Nightly_test_dir"}; 35 print ("Process-CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;35 # print ("Process-CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug; 36 36 $command = ("cd $Nightly_test_dir && perl $HTKbin/prompts2mlf testref.mlf testprompts"); print "$command\n" if $debug; system($command); 37 37 my $disclaimer = "DISCLAIMER: this is a *sanity test* only, and is *not* to be regarded as a valid test of the VoxForge Acoustic Models! … … 60 60 my $CurrentBuild_dir = $$parms{"CurrentBuild_dir"}; 61 61 my $CurrentAM_16kHz_16bit = $$parms{"CurrentAM_16kHz_16bit"}; 62 print ("process CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug;62 # print ("process CurrentAM_16kHz_16bit:" . $$parms{"CurrentAM_16kHz_16bit"} . ":\n") if $debug; 63 63 open(OUTPUT, ">$NightlyAM_16kHz_16bit/TestResults") or die ("cannot write to TestResults file"); # open for output 64 64 print OUTPUT "$disclaimer\n";