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