Subversion Repositories or1k

# Commands covered:  none

#

# This file contains a collection of tests for Tcl_CallWhenDeleted.

# Sourcing this file into Tcl runs the tests and generates output for

# errors.  No output means no errors were found.

#

# Copyright (c) 1993 The Regents of the University of California.

# Copyright (c) 1994 Sun Microsystems, Inc.

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

# RCS: @(#) $Id: dcall.test,v 1.1.1.1 2002-01-16 10:25:35 markom Exp $

if {[info commands testdcall] == {}} {

    puts "This application hasn't been compiled with the \"testdcall\""

    puts "command, so I can't test Tcl_CallWhenDeleted."

    return

}

if {[string compare test [info procs test]] == 1} then {source defs}

test dcall-1.1 {deletion callbacks} {

    lsort -increasing [testdcall 1 2 3]

} {1 2 3}

test dcall-1.2 {deletion callbacks} {

    testdcall

} {}

test dcall-1.3 {deletion callbacks} {

    lsort -increasing [testdcall 20 21 22 -22]

} {20 21}

test dcall-1.4 {deletion callbacks} {

    lsort -increasing [testdcall 20 21 22 -20]

} {21 22}

test dcall-1.5 {deletion callbacks} {

    lsort -increasing [testdcall 20 21 22 -21]

} {20 22}

test dcall-1.6 {deletion callbacks} {

    lsort -increasing [testdcall 20 21 22 -21 -22 -20]

} {}