@@ -279,19 +279,19 @@ test winDde-6.6 {DDE remote servername collision force} -constraints {dde stdio}
279
279
280
280
# -------------------------------------------------------------------------
281
281
282
- test winDde-7.1 {Load DDE in slave interpreter} -constraints dde -setup {
283
- interp create slave
282
+ test winDde-7.1 {Load DDE in child interpreter} -constraints dde -setup {
283
+ interp create child
284
284
} -body {
285
- slave eval [list load $::ddelib Dde]
286
- slave eval [list dde servername -- dde-interp-7.1]
285
+ child eval [list load $::ddelib Dde]
286
+ child eval [list dde servername -- dde-interp-7.1]
287
287
} -cleanup {
288
- interp delete slave
288
+ interp delete child
289
289
} -result {dde-interp-7.1}
290
- test winDde-7.2 {DDE slave cleanup} -constraints dde -setup {
291
- interp create slave
292
- slave eval [list load $::ddelib Dde]
293
- slave eval [list dde servername -- dde-interp-7.5]
294
- interp delete slave
290
+ test winDde-7.2 {DDE child cleanup} -constraints dde -setup {
291
+ interp create child
292
+ child eval [list load $::ddelib Dde]
293
+ child eval [list dde servername -- dde-interp-7.5]
294
+ interp delete child
295
295
} -body {
296
296
dde services TclEval {}
297
297
set s [dde services TclEval {}]
@@ -300,128 +300,128 @@ test winDde-7.2 {DDE slave cleanup} -constraints dde -setup {
300
300
set s
301
301
}
302
302
} -result {}
303
- test winDde-7.3 {DDE present in slave interp} -constraints dde -setup {
304
- interp create slave
305
- slave eval [list load $::ddelib Dde]
306
- slave eval [list dde servername -- dde-interp-7.3]
303
+ test winDde-7.3 {DDE present in child interp} -constraints dde -setup {
304
+ interp create child
305
+ child eval [list load $::ddelib Dde]
306
+ child eval [list dde servername -- dde-interp-7.3]
307
307
} -body {
308
308
dde services TclEval dde-interp-7.3
309
309
} -cleanup {
310
- interp delete slave
310
+ interp delete child
311
311
} -result {{TclEval dde-interp-7.3}}
312
312
test winDde-7.4 {interp name collision with -force} -constraints dde -setup {
313
- interp create slave
314
- slave eval [list load $::ddelib Dde]
315
- slave eval [list dde servername -- dde-interp-7.4]
313
+ interp create child
314
+ child eval [list load $::ddelib Dde]
315
+ child eval [list dde servername -- dde-interp-7.4]
316
316
} -body {
317
317
dde servername -force -- dde-interp-7.4
318
318
} -cleanup {
319
- interp delete slave
319
+ interp delete child
320
320
} -result {dde-interp-7.4}
321
321
test winDde-7.5 {interp name collision without -force} -constraints dde -setup {
322
- interp create slave
323
- slave eval [list load $::ddelib Dde]
324
- slave eval [list dde servername -- dde-interp-7.5]
322
+ interp create child
323
+ child eval [list load $::ddelib Dde]
324
+ child eval [list dde servername -- dde-interp-7.5]
325
325
} -body {
326
326
dde servername -- dde-interp-7.5
327
327
} -cleanup {
328
- interp delete slave
328
+ interp delete child
329
329
} -result "dde-interp-7.5 #2"
330
330
331
331
# -------------------------------------------------------------------------
332
332
333
333
test winDde-8.1 {Safe DDE load} -constraints dde -setup {
334
- interp create -safe slave
335
- slave invokehidden load $::ddelib Dde
334
+ interp create -safe child
335
+ child invokehidden load $::ddelib Dde
336
336
} -body {
337
- slave eval dde servername slave
337
+ child eval dde servername child
338
338
} -cleanup {
339
- interp delete slave
339
+ interp delete child
340
340
} -returnCodes error -result {invalid command name "dde"}
341
341
test winDde-8.2 {Safe DDE set servername} -constraints dde -setup {
342
- interp create -safe slave
343
- slave invokehidden load $::ddelib Dde
342
+ interp create -safe child
343
+ child invokehidden load $::ddelib Dde
344
344
} -body {
345
- slave invokehidden dde servername slave
346
- } -cleanup {interp delete slave } -result {slave }
345
+ child invokehidden dde servername child
346
+ } -cleanup {interp delete child } -result {child }
347
347
test winDde-8.3 {Safe DDE check handler required for eval} -constraints dde -setup {
348
- interp create -safe slave
349
- slave invokehidden load $::ddelib Dde
350
- slave invokehidden dde servername slave
348
+ interp create -safe child
349
+ child invokehidden load $::ddelib Dde
350
+ child invokehidden dde servername child
351
351
} -body {
352
- catch {dde eval slave set a 1} msg
353
- } -cleanup {interp delete slave } -result {1}
352
+ catch {dde eval child set a 1} msg
353
+ } -cleanup {interp delete child } -result {1}
354
354
test winDde-8.4 {Safe DDE check that execute is denied} -constraints dde -setup {
355
- interp create -safe slave
356
- slave invokehidden load $::ddelib Dde
357
- slave invokehidden dde servername slave
355
+ interp create -safe child
356
+ child invokehidden load $::ddelib Dde
357
+ child invokehidden dde servername child
358
358
} -body {
359
- slave eval set a 1
360
- dde execute TclEval slave {set a 2}
361
- slave eval set a
362
- } -cleanup {interp delete slave } -result 1
359
+ child eval set a 1
360
+ dde execute TclEval child {set a 2}
361
+ child eval set a
362
+ } -cleanup {interp delete child } -result 1
363
363
test winDde-8.5 {Safe DDE check that request is denied} -constraints dde -setup {
364
- interp create -safe slave
365
- slave invokehidden load $::ddelib Dde
366
- slave invokehidden dde servername slave
364
+ interp create -safe child
365
+ child invokehidden load $::ddelib Dde
366
+ child invokehidden dde servername child
367
367
} -body {
368
- slave eval set a 1
369
- dde request TclEval slave a
368
+ child eval set a 1
369
+ dde request TclEval child a
370
370
} -cleanup {
371
- interp delete slave
371
+ interp delete child
372
372
} -returnCodes error -result {remote server cannot handle this command}
373
373
test winDde-8.6 {Safe DDE assign handler procedure} -constraints dde -setup {
374
- interp create -safe slave
375
- slave invokehidden load $::ddelib Dde
376
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
374
+ interp create -safe child
375
+ child invokehidden load $::ddelib Dde
376
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
377
377
} -body {
378
- slave invokehidden dde servername -handler DDEACCEPT slave
379
- } -cleanup {interp delete slave } -result slave
378
+ child invokehidden dde servername -handler DDEACCEPT child
379
+ } -cleanup {interp delete child } -result child
380
380
test winDde-8.7 {Safe DDE check simple command} -constraints dde -setup {
381
- interp create -safe slave
382
- slave invokehidden load $::ddelib Dde
383
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
384
- slave invokehidden dde servername -handler DDEACCEPT slave
381
+ interp create -safe child
382
+ child invokehidden load $::ddelib Dde
383
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
384
+ child invokehidden dde servername -handler DDEACCEPT child
385
385
} -body {
386
- dde eval slave set x 1
387
- } -cleanup {interp delete slave } -result {set x 1}
386
+ dde eval child set x 1
387
+ } -cleanup {interp delete child } -result {set x 1}
388
388
test winDde-8.8 {Safe DDE check non-list command} -constraints dde -setup {
389
- interp create -safe slave
390
- slave invokehidden load $::ddelib Dde
391
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
392
- slave invokehidden dde servername -handler DDEACCEPT slave
389
+ interp create -safe child
390
+ child invokehidden load $::ddelib Dde
391
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
392
+ child invokehidden dde servername -handler DDEACCEPT child
393
393
} -body {
394
394
set s "c:\\Program Files\\Microsoft Visual Studio\\"
395
- dde eval slave $s
396
- string equal [slave eval set DDECMD] $s
397
- } -cleanup {interp delete slave } -result 1
395
+ dde eval child $s
396
+ string equal [child eval set DDECMD] $s
397
+ } -cleanup {interp delete child } -result 1
398
398
test winDde-8.9 {Safe DDE check command evaluation} -constraints dde -setup {
399
- interp create -safe slave
400
- slave invokehidden load $::ddelib Dde
401
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
402
- slave invokehidden dde servername -handler DDEACCEPT slave
399
+ interp create -safe child
400
+ child invokehidden load $::ddelib Dde
401
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
402
+ child invokehidden dde servername -handler DDEACCEPT child
403
403
} -body {
404
- dde eval slave set \xe1 1
405
- slave eval set \xe1
406
- } -cleanup {interp delete slave } -result 1
404
+ dde eval child set \xe1 1
405
+ child eval set \xe1
406
+ } -cleanup {interp delete child } -result 1
407
407
test winDde-8.10 {Safe DDE check command evaluation (2)} -constraints dde -setup {
408
- interp create -safe slave
409
- slave invokehidden load $::ddelib Dde
410
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
411
- slave invokehidden dde servername -handler DDEACCEPT slave
408
+ interp create -safe child
409
+ child invokehidden load $::ddelib Dde
410
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
411
+ child invokehidden dde servername -handler DDEACCEPT child
412
412
} -body {
413
- dde eval slave [list set x 1]
414
- slave eval set x
415
- } -cleanup {interp delete slave } -result 1
413
+ dde eval child [list set x 1]
414
+ child eval set x
415
+ } -cleanup {interp delete child } -result 1
416
416
test winDde-8.11 {Safe DDE check command evaluation (3)} -constraints dde -setup {
417
- interp create -safe slave
418
- slave invokehidden load $::ddelib Dde
419
- slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
420
- slave invokehidden dde servername -handler DDEACCEPT slave
417
+ interp create -safe child
418
+ child invokehidden load $::ddelib Dde
419
+ child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
420
+ child invokehidden dde servername -handler DDEACCEPT child
421
421
} -body {
422
- dde eval slave [list [list set x 1]]
423
- slave eval set x
424
- } -cleanup {interp delete slave } -returnCodes error -result {invalid command name "set x 1"}
422
+ dde eval child [list [list set x 1]]
423
+ child eval set x
424
+ } -cleanup {interp delete child } -returnCodes error -result {invalid command name "set x 1"}
425
425
426
426
# -------------------------------------------------------------------------
427
427
@@ -481,7 +481,7 @@ test winDde-9.4 {External safe DDE check null data passing} -constraints {dde st
481
481
# -------------------------------------------------------------------------
482
482
483
483
#cleanup
484
- #catch {interp delete $slave }; # ensure we clean up the slave .
484
+ #catch {interp delete $child }; # ensure we clean up the child .
485
485
file delete -force $::scriptName
486
486
::tcltest::cleanupTests
487
487
return
0 commit comments