← Back to branch summary

~ubuntu-branches/ubuntu/saucy/gnudatalanguage/saucy-proposed

« back to all changes in this revision

Viewing changes to testsuite/test_strsplit.pro

  • Committer: Package Import Robot
  • Author(s): Axel Beckert
  • Date: 2013-05-15 02:23:58 UTC
  • mfrom: (15.1.1 experimental)
  • Revision ID: package-import@ubuntu.com-20130515022358-rziznpf225zn9lv9
Tags: 0.9.3-2
* Upload to unstable.
* Revamp debian/rules
  - Allow parallel builds
  - Use debian/manpages instead of dh_installman parameter
  - Switch to dh7 style debian/rules file
* Bump debhelper compatibility to 9
  - Update versioned debhelper build-dependency
* Bump Standards-Version to 3.9.4 (no changes)
* Apply wrap-and-sort

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/test_strsplit.pro
244
244
   nb_pbs=nb_pbs+1
245
245
endif
246
246
;
 
247
; we must return a STRARR except for ''
 
248
;
 
249
tab=STRSPLIT('eeee','e',/extract)
 
250
if (SIZE(tab, /n_dim) NE 0) then begin
 
251
   if KEYWORD_SET(verbose) then MESSAGE, 'bad size for void string', /continue
 
252
   nb_pbs=nb_pbs+1
 
253
endif
 
254
tab=STRSPLIT('eeABCee','e',/extract)
 
255
if (SIZE(tab, /n_dim) NE 1) then begin
 
256
   if KEYWORD_SET(verbose) then MESSAGE, 'bad size for 1D STRARR', /continue
 
257
   nb_pbs=nb_pbs+1
 
258
endif
 
259
if (tab NE 'ABC') then begin
 
260
   if KEYWORD_SET(verbose) then MESSAGE, 'bad value in STRARR', /continue
 
261
   nb_pbs=nb_pbs+1
 
262
endif
 
263
tab=STRSPLIT('eeABCeeABCee','e',/extract)
 
264
if (SIZE(tab, /n_dim) NE 1) then begin
 
265
   if KEYWORD_SET(verbose) then MESSAGE, 'bad size for 2 elements STRARR', /continue
 
266
   nb_pbs=nb_pbs+1
 
267
endif
247
268
;
248
269
vide=''
249
270
if (EXECUTE('res=TEXTOIDL(vide)') EQ 0) then begin