[Bug-apl] Help

[Bill Daly]

Hi Jurgen

I'm in over my head and hope you can help.  I wrote the attached 
workspace assert to do unit testing.  The baisc idea is the function 
assert-delta-toScreen where the right argument is a command to execute 
and the left is what you expect the command to return.  The hard work is 
done by assert-delta01 wherein I define what equals means. Generally its 
working.

I've also send workspace lex1 and script lex1_test.apl.  This testing 
fails on the command

(1↑⍴leads) assert∆toScreen '+/lex1∆distribution t1'

while both arguments evaluate 94, assert-dela-01 says not equal, viz.:

     ≡⍴leads
1
      ≡+/lex1∆distribution t1
0

I'm lost I can't see why I get two different results, nor figure how, if 
at all, to modify assert-delta-01.

Thanks is advance

w

assert.apl
Description: Text document

lex1.apl
Description: Text document

lex1_test.apl
Description: Text document