test_scores.m

function e=test_scores()
%runs unit tests on scores(n) and returns if the cases fail or pass
%author-Robin Jha
%date-02/21/2011

% Varenya Prasad: Modified the runTest function to ouput the vector properly as a string, 
%	and added tests to check bounds

% Already good - Added test case _ Abhirup Das

e=0;
e= e+runTest([1,100,100,1],1);
e= e+runTest([100,100,100,1],1);
e= e+runTest([100,1,100,1],0);
e= e+runTest([10,100,10,100,100,1],1);
e= e+runTest([1,1,100,1,100,100,100,1],1);
e= e+runTest([1,100,100],1);
e= e+runTest([1,100,99,100],0);
e= e+runTest([100,1,100,100],1);
e= e+runTest([1,2,3,4,5],0);
e= e+runTest([1,2,100,4,5],0);

e= e+runTest([0],0);% by Robin Jha
e= e+runTest([100,1,100],1);% by Robin Jha

e = e + runTest([0],0);

e= e+runTest([1,100,-100,4,5],0);
e= e+runTest([],0);
e= e+runTest([100],0);
e= e+runTest([100,100],1);
end

function k = runTest(n,answer)
% runTest(n,answer) - checks that everyNth(n)==answer

 result = scores(n);


 
 if (result==answer)
   k=0;
   fprintf('        scores(%s)->%d\n',mat2str(n),answer);
 else
   k=1; 
   fprintf('ERROR!  scores(%s)->%d  <> %d\n',mat2str(n),result,answer);
 %error = error + 1;
 end
end