1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
;
; AC 26 Nov. 2013, under GNU GPL v2 or any later
;
; Two kinds of tests:
;
; 1/ just verifying the logical operators (EQ and NE only) with !null are OK
; please remember that :
; - AND and OR not OK for !null
; - LT and GT not OK for !null
;
; 2/ when an array is created containing !null, !null is not taked
; into account
;
; more exhaustive tests on July 2014. Ideas still welcome !!
;
; http://www.harrisgeospatial.com/docs/The_Null_Variable.html
; -----------------------------------------------
;
; Modifications history :
;
; - 2018-02-05 : AC.
; * renaming ADD_ERRORS into ERRORS_ADD
; * renaming INCREMENT_ERRORS into ERRORS_RESET
;
; -----------------------------------------------
;
pro TEST_NULL_CREATE, cumul_errors, help=help, test=test, verbose=verbose
;
errors=0
;
FORWARD_FUNCTION ISA
;
a1=!null
if ~ISA(a1,/null) then ERRORS_ADD, errors, 'cas a1 isa'
if (a1 NE !null) then ERRORS_ADD, errors, 'cas a1 eq !null'
;
a2=[]
if ~ISA(a1,/null) then ERRORS_ADD, errors, 'cas a2 isa'
if (a2 NE !null) then ERRORS_ADD, errors, 'cas a2 eq !null'
;
a3={}
if ~ISA(a3,/null) then ERRORS_ADD, errors, 'cas a3 isa'
if (a3 NE !null) then ERRORS_ADD, errors, 'cas a3 eq !null'
;
if ~KEYWORD_SET(verbose) then short=1 else short=0
BANNER_FOR_TESTSUITE, 'TEST_NULL_CREATE', errors, short=short
ERRORS_CUMUL, cumul_errors, errors
if KEYWORD_SET(test) then STOP
;
end
;
; -----------------------------------------------
;
pro TEST_NULL_LOGICAL, extern_errors, help=help, test=test, verbose=verbose
;
if KEYWORD_SET(help) then begin
print, 'pro TEST_NULL_LOGICAL, extern_errors, help=help, test=test, verbose=verbose'
return
endif
;
total_errors=0
nb_errors=0
;
if KEYWORD_SET(verbose) then verb=1 else verb=0
;
; first series of tests : comparing !Null with Undefined variable
;
txt='(1) Testing Undefined EQ/NE !null'
if (verb) then MESSAGE, /cont, txt
;
test1EQleft=(a EQ !null)
if (test1EQleft NE 1) then ERRORS_ADD, nb_errors, 'undefined EQ !null'
test1EQright=(!null EQ a)
if (test1EQright NE 1) then ERRORS_ADD, nb_errors, '!null EQ undefined'
test1NEleft=(a NE !null)
if (test1NEleft NE 0) then ERRORS_ADD, nb_errors, 'undefined NE !null'
test1NEright=(!null NE a)
if (test1NEright NE 0) then ERRORS_ADD, nb_errors, '!null NE undefined'
;
if (nb_errors GT 0) then MESSAGE, /cont, 'Errors in '+txt else $
if (verb) then MESSAGE, /cont, 'Success in '+txt
ERRORS_RESET, total_errors, nb_errors, verbose=verbose
;
; second series of tests : comparing !Null with !Null
;
txt='(2) Testing !Null EQ/NE !null'
if (verb) then MESSAGE, /cont, txt
;
test2eq=(!null EQ !null)
if (test2eq NE 1) then ERRORS_ADD, nb_errors, '!null EQ !Null'
test2ne=(!null NE !null)
if (test2ne NE 0) then ERRORS_ADD, nb_errors, '!null NE !Null'
;
left=!null
test2eq=(left EQ !null)
if (test2eq NE 1) then ERRORS_ADD, nb_errors, 'Left EQ !Null'
test2ne=(left NE !null)
if (test2ne NE 0) then ERRORS_ADD, nb_errors, 'Left NE !Null'
;
right=!null
test2eq=(!null EQ right)
if (test2eq NE 1) then ERRORS_ADD, nb_errors, '!Null EQ right'
test2ne=(!null NE right)
if (test2ne NE 0) then ERRORS_ADD, nb_errors, '!Null NE right'
;
if (nb_errors GT 0) then MESSAGE, /cont, 'Errors in '+txt else $
if (verb) then MESSAGE, /cont, 'Success in '+txt
ERRORS_RESET, total_errors, nb_errors, verbose=verbose
;
; third series of tests : comparing !Null with Defined variable
; (EQ/NE and Left/Right operations)
;
txt='(3) Testing Defined EQ/NE !null for '
if (verb) then MESSAGE, /cont, txt+' various TYPE'
;
for ii=1, 15 do begin
if (ii EQ 8) OR (ii EQ 10) OR (ii EQ 11) then CONTINUE
b=MAKE_ARRAY(1, type=ii)
b=b[0]
if (verb) then MESSAGE, /cont, 'current type is : '+TYPENAME(b)
;;
test3eqleft=(b EQ !null)
if (test3eqleft NE 0) then ERRORS_ADD, nb_errors, 'x EQ !null'
test3eqright=(!null EQ b)
if (test3eqright NE 0) then ERRORS_ADD, nb_errors, '!null EQ x'
test3neleft=(b NE !null)
if (test3neleft NE 1) then ERRORS_ADD, nb_errors, 'x NE !null'
test3neright=(!null NE b)
if (test3neright NE 1) then ERRORS_ADD, nb_errors, '!null NE x'
;;
if nb_errors gt 0 then MESSAGE, /cont, 'Errors in '+txt+'TYPE '+TYPENAME(b) else $
if (verb) then MESSAGE, /cont, 'Success in '+txt+'TYPE '+TYPENAME(b)
ERRORS_RESET, total_errors, nb_errors;, verbose=verbose
endfor
;
; forth series of tests : comparing !Null with exotic types: Object and Pointer
;
txt='(4) Testing EQ/NE !null for '
if (verb) then MESSAGE, /cont, txt+' Object and Pointers'
;
for ii=10, 11 do begin
b=MAKE_ARRAY(1, type=ii)
;; when we do that, we create <NullPointer> or <NullObj>
b=b[0]
if (verb) then MESSAGE, /cont, 'current type is : '+TYPENAME(b)
;;
test4eqleft=(b EQ !null)
if (test4eqleft NE 1) then ERRORS_ADD, nb_errors, 'x EQ !null'
test4eqright=(!null EQ b)
if (test4eqright NE 1) then ERRORS_ADD, nb_errors, '!null EQ x'
test4neleft=(b NE !null)
if (test4neleft NE 0) then ERRORS_ADD, nb_errors, 'x NE !null'
test4neright=(!null NE b)
if (test4neright NE 0) then ERRORS_ADD, nb_errors, '!null NE x'
;;
if nb_errors gt 0 then MESSAGE, /cont, 'Errors in '+txt+'TYPE '+TYPENAME(b) else $
if (verb) then MESSAGE, /cont, 'Success in '+txt+'TYPE '+TYPENAME(b)
ERRORS_RESET, total_errors, nb_errors;, verbose=verbose
endfor
;
; final message
;
if ~KEYWORD_SET(verbose) then short=1 else short=0
BANNER_FOR_TESTSUITE, 'TEST_NULL_LOGICAL', total_errors, short=short
;
if ISA(extern_errors) then extern_errors=total_errors+extern_errors else extern_errors=total_errors
;
if KEYWORD_SET(test) then STOP
;
end
;
; --------------------------------------------------
;
pro TEST_NULL_ARRAY, extern_errors, help=help, test=test, verbose=verbose
;
if KEYWORD_SET(help) then begin
print, 'pro TEST_NULL_ARRAY, extern_errors, help=help, test=test, verbose=verbose'
return
endif
;
total_errors=0
nb_errors=0
;
if KEYWORD_SET(verbose) then verb=1 else verb=0
;
; creating array containing !Null ...
;
txt='(1) creating array containing !Null'
if (verb) then MESSAGE, /cont, txt
;
expected1=[1L,2,4,2]
res0=SIZE([!null,1,!values.f_nan])
res1=SIZE([1,!null,!values.f_nan])
expected2=[2L,2,2,2,4]
res2=SIZE([[0,1],[0,!null,3]])
;
if ~ARRAY_EQUAL(expected1,res0) then ERRORS_ADD, nb_errors, '[!null,1,!values.f_nan]'
if ~ARRAY_EQUAL(expected1,res1) then ERRORS_ADD, nb_errors, '[1,!null,!values.f_nan]'
if ~ARRAY_EQUAL(expected2,res2) then ERRORS_ADD, nb_errors, '2d case'
;
if nb_errors gt 0 then MESSAGE, /cont, 'Errors in '+txt else $
if (verb) then MESSAGE, /cont, 'Success in '+txt
ERRORS_RESET, total_errors, nb_errors ;, verbose=verbose
;
; final message
;
if ~KEYWORD_SET(verbose) then short=1 else short=0
BANNER_FOR_TESTSUITE, 'TEST_NULL_ARRAY', total_errors, short=short
;
if ISA(extern_errors) then extern_errors=total_errors+extern_errors else extern_errors=total_errors
;
if KEYWORD_SET(test) then STOP
;
end
;
; -----------------------------------------------
;
pro TEST_NULL, help=help, test=test, verbose=verbose, no_exit=no_exit
;
if KEYWORD_SET(help) then begin
print, 'pro TEST_NULL, help=help, test=test, verbose=verbose, no_exit=no_exit'
return
endif
;
; in IDL, !null appeared in 8+
if (GDL_IDL_FL() EQ 'IDL') then begin
majeur=STRMID(!VERSION.RELEASE,0,1)
if (majeur LT 8) then begin
MESSAGE,/continue, '!NULL does not exist in IDL before 8'
EXIT, status=77
endif
endif
;
total_errors=0
;
TEST_NULL_CREATE, total_errors, help=help, test=test, verbose=verbose
;
TEST_NULL_LOGICAL, total_errors, help=help, test=test, verbose=verbose
;
TEST_NULL_ARRAY, total_errors, help=help, test=test, verbose=verbose
;
; final message
;
BANNER_FOR_TESTSUITE, 'TEST_NULL', total_errors, short=short
;
if (total_errors GT 0) AND ~KEYWORD_SET(no_exit) then EXIT, status=1
;
if KEYWORD_SET(test) then STOP
;
end
|
