Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Scientific Software
LAMP
Commits
393fc5f4
Commit
393fc5f4
authored
Jun 26, 2019
by
Gonzalez, Miguel
Browse files
Removed forgotten stop and added 2 missing failed_test lines
parent
c9c9dd97
Changes
1
Hide whitespace changes
Inline
Side-by-side
test_unit/lamp_fast_unit_test.pro
View file @
393fc5f4
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment