ArrayMac > Function display > TEST_xHTMLofAPL

     ∇ r←TEST_xHTMLofAPL;ckFnExists;unless;aOk;aEq;on;chkFeature;ckObExists;chkFeatureLine;tfuuN;tfuu                         
[1]   ⍝∇ 20150418/20150727 ra⌈ --()-- test "xHTMLofAPL"                                                                       
[2]    test_start                                                                                                             
[3]    r←0                                                                                                                    
[4]    unless←{(~⍵)/⍺}                                                                                                        
[5]    aOk←#.Assert                                                                                                           
[6]    aEq←#.AssertEq                                                                                                         
[7]    on←{⍺ ⍵}                                                                                                               
[8]   ⍝⍝--------                                                                                                              
[9]    ckObExists←{(⍵ omrepl'missing "⍵"')AssertEq ⍺ on ⍬⍴⎕NC ⍵}                                                              
[10]   ckFnExists←3∘ckObExists                                                                                                
[11]   chkFeature←{⍺←0 ⋄ ('Requirement:',⍵)aEq 1 ⍺}                                                                           
[12]   chkFeatureLine←{⍺←0 ⋄ ⍺ chkFeature'⍝⍝--'{(1+(⍬⍴⍴⍺)+⍬⍴where ⍺⍷⍵)↓⍵}(1 atpars 2⌷[1]qSI'')FNline ⍵}                      
[13]   ⍝⍝--                                                                                                                   
[14]   tfuuN←'xHTMLofAPL'                                                                                                     
[15]   :If 1                                                                                                                  
[16]       :If ~ckFnExists{⍵}tfuuN                                                                                            
[17]           ⎕←APLPmtMFS tfuuN                                                                                              
[18]           →XIT                                                                                                           
[19]       :EndIf                                                                                                             
[20]       tfuu←⍎tfuuN                                                                                                        
[21]   :EndIf                                                                                                                 
[22]   ⍝⍝--                                                                                                                   
[23]   →fail unless aEq'iota ⍳ rho ⍴ omega ⍵'on tfuu'iota ⍳ rho ⍴ omega ⍵' ⍝⍝ showfn.htm display
[24]   →fail unless aEq''on tfuu''                                                                                            
[25]   ⍝⍝--                                                                                                                   
[26]   :If ~0 chkFeature tfuuN omrepl'implement "⍵"'                                                                          
[27]       ⎕←APLPmtMFS'TEST_',tfuuN                                                                                           
[28]       →XIT                                                                                                               
[29]   :EndIf                                                                                                                 
[30]   r←1                                                                                                                    
[31]   →XIT                                                                                                                   
[32]  fail:                                                                                                                   
[33]   ⎕←APLPmtMFS ThisFN''                                                                                                   
[34]  XIT: ⍝⍝-------                                                                                                          
[35]   test_complete                                                                                                          
     ∇                                                                                                                        

Page served at: Wed, 08 Apr 2020 06:59:43 AST.