%testMorseSinWavSamples.m P.Conrad for CISC106 sect 99 11/15/06
%regression/acceptance testing for morseSinWavSamples.m
%

!mkdir -p -m 755 ~/public_html/cisc106/lab11


clear;
a = convertMorseAthruF('A');
samples = morseSinWavSamples(a,1/15,500,11025);
wavwrite(0.9 * samples,11025,16,'A.wav');
!cp A.wav ~/public_html/cisc106/lab11
!chmod 644 ~/public_html/cisc106/lab11/A.wav

disp('A.wav should now be a Morse Code file containing');
disp('  the Morse Code for ''A'' ');

clear;
aBead = convertMorseAthruF('A BEAD');
samples = morseSinWavSamples(aBead,1/5,500,11025);
wavwrite(0.9 * samples,11025,16,'A_BEAD.wav');
!cp A_BEAD.wav ~/public_html/cisc106/lab11
!chmod 644 ~/public_html/cisc106/lab11/A_BEAD.wav

disp('A_BEAD.wav should now be a Morse Code file containing');
disp('  the Morse Code for ''A BEAD'' ');
  
clear;
feedAbbaBeef = convertMorseAthruF('FEED ABBA BEEF');
samples = morseSinWavSamples(feedAbbaBeef,1/10,500,11025);
wavwrite(0.9 * samples,11025,16,'FEED_ABBA_BEEF.wav');
!cp FEED_ABBA_BEEF.wav ~/public_html/cisc106/lab11
!chmod 644 ~/public_html/cisc106/lab11/FEED_ABBA_BEEF.wav

disp('FEED_ABBA_BEEF.wav should now be a Morse Code file containing');
disp('  the Morse Code for ''FEED ABBA BEEF'' ');