Commit 393fc5f4 authored by Gonzalez, Miguel's avatar Gonzalez, Miguel

Removed forgotten stop and added 2 missing failed_test lines

parent c9c9dd97
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment