Removed forgotten stop and added 2 missing failed_test lines

test_unit/lamp_fast_unit_test.pro

@@ -135,7 +135,7 @@ OPENW,u,'lamp_fast_unit_test.txt', /get_lun
     READ_LAMP,'lamp_fast_hdf_test.hdf', W=2
     if !error_state.msg gt ' ' then begin & lamp_error & printf,u,!error_state.msg & nbE++ & failed_tests = [failed_tests, st] & endif
     if long(total(W2)) ne long(W_tot) then begin
-       lamp_message,'!Different result' & printf,u,'!Different result'   & nbE++ & endif
+       lamp_message,'!Different result' & printf,u,'!Different result'   & nbE++ & failed_tests = [failed_tests, st] & endif
   endelse
   file_delete,'lamp_fast_hdf_test.hdf', /ALLOW_NON, /QUIET
 
@@ -150,7 +150,7 @@ OPENW,u,'lamp_fast_unit_test.txt', /get_lun
   if stat ne 0 then begin & lamp_error & printf,u,!error_state.msg & nbE++ & failed_tests = [failed_tests, st]
   endif else begin
     WRITE_LAMP,'lamp_fast_col_test.txt', W=1, format='Column'
-    if !error_state.msg gt ' ' then begin & lamp_error & printf,u,!error_state.msg & failed_tests = [failed_tests, st] & nbE++ & endif
+    if !error_state.msg gt ' ' then begin & lamp_error & printf,u,!error_state.msg  & nbE++ & failed_tests = [failed_tests, st] & endif
   endelse
 
 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -166,7 +166,7 @@ OPENW,u,'lamp_fast_unit_test.txt', /get_lun
     xicute, "W2 = READ_COLUMN('lamp_fast_col_test.txt')"
     if !error_state.msg gt ' ' then begin & lamp_error & printf,u,!error_state.msg & nbE++ & failed_tests = [failed_tests, st] & endif
     if long(total(W2)) ne long(W_tot) then begin
-       lamp_message,'!Different result' & printf,u,'!Different result'   & nbE++ & endif
+       lamp_message,'!Different result' & printf,u,'!Different result'   & nbE++ & failed_tests = [failed_tests, st] & endif
   endelse
   file_delete,'lamp_fast_col_test.txt', /ALLOW_NON, /QUIET
 
@@ -750,7 +750,7 @@ OPENW,u,'lamp_fast_unit_test.txt', /get_lun
 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
 ; *********************
-  st = 'COSMOS GUI ...'                            & nbT+=1 & st = st+string(nbT) & stop
+  st = 'COSMOS GUI ...'                            & nbT+=1 & st = st+string(nbT) 
 ; *********************
   printf,u, '' & printf,u,st & print,'' & print,st & message,/reset
   catch,stat
@@ -1070,7 +1070,7 @@ lamp_test_clean, W_managed
 ; *******************
 ;  printf,u, '' & printf,u,st & print,'' & print,st & message,/reset
 ;  catch,stat
-;  if stat ne 0 then begin & lamp_error & printf,u,!error_state.msg & nbE++
+;  if stat ne 0 then begin & lamp_error & printf,u,!error_state.msg & nbE++ & failed_tests = [failed_tests, st]
 ;  endif else begin
 ;    P_DID_EVENT,0,[-88,306,0,1] ; or SCAN,1
 ;    if !error_state.msg gt ' ' then begin & lamp_error & printf,u,!error_state.msg & endif