← Back to branch summary

~ubuntu-branches/ubuntu/raring/tcl8.5/raring

« back to all changes in this revision

Viewing changes to tests/interp.test

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2011-06-26 11:47:14 UTC
  • mfrom: (11.2.2 sid)
  • Revision ID: james.westby@ubuntu.com-20110626114714-mdw95b180f00mm08
Tags: 8.5.10-1
http://bugs.debian.org/617628
* New upstream release (closes: #617628).
* Changed tclsh8.5 alternative priority to 850 to make it higher than
  tclsh8.4 one.
* Bumped standards version to 3.9.2.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/interp.test
9
9
#
10
10
# See the file "license.terms" for information on usage and redistribution
11
11
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12
 
#
13
 
# RCS: @(#) $Id: interp.test,v 1.54.2.3 2009/12/29 13:13:18 dkf Exp $
14
12
 
15
13
if {[lsearch [namespace children] ::tcltest] == -1} {
16
14
    package require tcltest 2.1
31
29
} {1 {wrong # args: should be "interp cmd ?arg ...?"}}
32
30
test interp-1.2 {options for interp command} {
33
31
    list [catch {interp frobox} msg] $msg
34
 
} {1 {bad option "frobox": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 
32
} {1 {bad option "frobox": must be alias, aliases, bgerror, create, debug, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
35
33
test interp-1.3 {options for interp command} {
36
34
    interp delete
37
35
} ""
49
47
} {1 {wrong # args: should be "interp slaves ?path?"}}
50
48
test interp-1.7 {options for interp command} {
51
49
    list [catch {interp hello} msg] $msg
52
 
} {1 {bad option "hello": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 
50
} {1 {bad option "hello": must be alias, aliases, bgerror, create, debug, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
53
51
test interp-1.8 {options for interp command} {
54
52
    list [catch {interp -froboz} msg] $msg
55
 
} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 
53
} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, debug, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
56
54
test interp-1.9 {options for interp command} {
57
55
    list [catch {interp -froboz -safe} msg] $msg
58
 
} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}} 
 
56
} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, debug, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}} 
59
57
test interp-1.10 {options for interp command} {
60
58
    list [catch {interp target} msg] $msg
61
59
} {1 {wrong # args: should be "interp target path alias"}}
3503
3501
    interp delete a
3504
3502
} -result {26 26}
3505
3503
 
 
3504
test interp-38.1 {interp debug one-way switch} -setup {
 
3505
    catch {interp delete a}
 
3506
    interp create a
 
3507
    interp debug a -frame 1
 
3508
} -body {
 
3509
    # TIP #3xx interp debug frame is a one-way switch
 
3510
    interp debug a -frame 0
 
3511
} -cleanup {
 
3512
    interp delete a
 
3513
} -result {1}
 
3514
test interp-38.2 {interp debug env var} -setup {
 
3515
    catch {interp delete a}
 
3516
    set ::env(TCL_INTERP_DEBUG_FRAME) 1
 
3517
    interp create a
 
3518
} -body {
 
3519
    interp debug a
 
3520
} -cleanup {
 
3521
    unset ::env(TCL_INTERP_DEBUG_FRAME)
 
3522
    interp delete a
 
3523
} -result {-frame 1}
 
3524
test interp-38.3 {interp debug wrong args} -body {
 
3525
    interp debug
 
3526
} -returnCodes {
 
3527
    error
 
3528
} -result {wrong # args: should be "interp debug path ?-frame ?bool??"}
 
3529
test interp-38.4 {interp debug basic setup} -body {
 
3530
    interp debug {}
 
3531
} -result {-frame 0}
 
3532
test interp-38.5 {interp debug basic setup} -body {
 
3533
    interp debug {} -f
 
3534
} -result {0}
 
3535
test interp-38.6 {interp debug basic setup} -body {
 
3536
    interp debug -frames
 
3537
} -returnCodes error -result {could not find interpreter "-frames"}
 
3538
test interp-38.7 {interp debug basic setup} -body {
 
3539
    interp debug {} -frames
 
3540
} -returnCodes error -result {bad debug option "-frames": must be -frame}
 
3541
test interp-38.8 {interp debug basic setup} -body {
 
3542
    interp debug {} -frame 0 bogus
 
3543
} -returnCodes {
 
3544
    error
 
3545
} -result {wrong # args: should be "interp debug path ?-frame ?bool??"}
 
3546
 
3506
3547
# cleanup
3507
3548
foreach i [interp slaves] {
3508
3549
    interp delete $i