test_general_avg Subroutine

subroutine test_general_avg()
   call lala( 'display(ones(80,1)''*61)')
   call lala( 'display(''general tests: avg'')')
   if(logs)call lala( 'diary(''test-general-avg.log'');')
   call lala( [ character(len=256) :: &
   & 'tally=[0];                                                              ', &
   & 'a=magic(8); n=3;                                                        ', &
   & 'for i = 2:2:n, for j=2:2:n,t = (a(i-1,j-1)+a(i-1,j)+a(i,j-1)+a(i,j))/4; ', &
   & 'if t = 32.5, tally=[tally, 0], else, tally=[tally, -1];                 ', &
   & 'if sum(tally) = 0,display(''avg PASSED''),else,display(''avg FAILED'');tally'])
end subroutine test_general_avg