test_ones Subroutine

subroutine test_ones()

Arguments

None

Contents

Source Code


Source Code

subroutine test_ones()
   call lala( 'display(ones(80,1)''*61); help ones; display(ones(80,1)''*95)')
   call lala( 'tally=[0];')
   if(logs)call lala( 'diary(''ones.log'');')
   call lala( 'a=ones(30,40);')
   call lala( 'b=sum(a);')
   call lala(  &
   & 'if b = 1200,display(''ones SUM OK''),tally=[tally,0];else,display(''ones SUM FAILED'');shape(a),tally=[tally,1];end')
   call lala( &
   & 'if shape(a) = [30,40] ,display(''ones shape OK'');tally=[tally,0];else,display(''ones shape BAD'');shape(a),tally=[tally,1];')
   call lala( &
   & 'if sum(a-ones(30,40)) = 0, &
   &    display(''ones DELTA OK''), &
   &    tally=[tally,0]; &
   & else, &
   &    display(''ones DELTA FAILED''); &
   &    tally=[tally,1]; &
   & end')
   call lala( 'if sum(tally) = 0,display(''ones PASSED''),else,display(''ones FAILED'');tally')
end subroutine test_ones