ArrayMac > Function display > TEST_dkd_131020

     ∇ r←TEST_dkd_131020;ckFnExists;unless;aOk;aEq;on;chkFeature;ckObExists;chkFeatureLine;chkPageBreaks;pageV;chk01;urlV
[1]   ⍝∇ 20131021/20150608 ra⌈ --()-- test "dkd_131020"                                                                  
[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]   chkPageBreaks←{                                                                                                   
[15]       pageV←HTMLQueryhandle ⍵                                                                                       
[16]       ~(⍵ omrepl'"⍵" page broken: ??? in page')aEq 0 on'???'xIsIn pageV:0                                           
[17]       ~(⍵ omrepl'"⍵" page broken: ''??'''' in page')aEq 0 on'??'''xIsIn pageV:0                                     
[18]       1                                                                                                             
[19]   }                                                                                                                 
[20]   chk01←{chkPageBreaks dkROOT{⍵}⎕THIS.pageV←{⎕←'>>>Checking ...',⍵}{⍵{⍺}⎕←⍺⍺ ⍵}⎕THIS.urlV←⍵}                        
[21]                                                                                                                     
[22]   :If 0                                                                                                             
[23]   :OrIf ~chk01'build/editrecord.htm?index=2&login_user=arraymac'                                                    
[24]   :OrIf ~chk01'chkFeatures.htm'                                                                                     
[25]   :OrIf ~chk01'chkFeatures.htm?matching=chk'                                                                        
[26]   :OrIf ~chk01'build/'                                                                                              
[27]   :OrIf ~chk01'build/viewrecord.htm?index=2'                                                                        
[28]   :OrIf ~chk01'build/addrecord.htm?index=16&type='                                                                  
[29]   :OrIf ~chk01'build/addrecord.htm?index=16&type=701-02'                                                            
[30]   :OrIf ~chk01'ValidationRules.htm?file=201-02'                                                                     
[31]       ⎕←showExpn'urlV'                                                                                              
[32]       ⎕←APLPmtMFS'''edit'' fSend ''HTMLQuery'' ',quote dkROOT urlV                                                  
[33]       ⎕←'HTMLQueryedit dkROOT ',quote pageV                                                                         
[34]       →fail                                                                                                         
[35]   :EndIf                                                                                                            
[36]   →XIT unless 1 chkFeature'ensure development does not break pages'                                                 
[37]   ⍝⍝--                                                                                                              
[38]   :If 0                                                                                                             
[39]       →XIT unless chkFeature'set up a demo set of pages; a beta along with the existing alpha'                      
[40]   :EndIf                                                                                                            
[41]   r←1                                                                                                               
[42]   →XIT                                                                                                              
[43]  fail:                                                                                                              
[44]   ⎕←APLPmtMFS ThisFN''                                                                                              
[45]  XIT: ⍝⍝-------                                                                                                     
[46]   test_complete                                                                                                     
     ∇                                                                                                                   

Page served at: Wed, 08 Apr 2020 05:36:37 AST.