Il CD di internet/CD.iso/SOURCE/TCL/ITCL/_ITCL.TAR/usr/lib/itcl/tests/toaster.test

Text File | 1994-03-21 | 5.0 KB | 179 lines

#
# Tests for "toaster" example
# ----------------------------------------------------------------------
#   AUTHOR:  Michael J. McLennan       Phone: [phone]
#            AT&T Bell Laboratories   E-mail: [e-mail]
#
#      RCS:  toaster.test,v 1.1.1.1 1994/03/21 22:09:50 mmc Exp
# ----------------------------------------------------------------------
#               Copyright (c) 1993  AT&T Bell Laboratories
# ======================================================================
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted,
# provided that the above copyright notice appear in all copies and that
# both that the copyright notice and warranty disclaimer appear in
# supporting documentation, and that the names of AT&T Bell Laboratories
# any of their entities not be used in advertising or publicity
# pertaining to distribution of the software without specific, written
# prior permission.
#
# AT&T disclaims all warranties with regard to this software, including
# all implied warranties of merchantability and fitness.  In no event
# shall AT&T be liable for any special, indirect or consequential
# damages or any damages whatsoever resulting from loss of use, data or
# profits, whether in an action of contract, negligence or other
# tortuous action, arising out of or in connection with the use or
# performance of this software.
# ======================================================================

# ----------------------------------------------------------------------
#  Get toaster classes from "demos" directory.
# ----------------------------------------------------------------------
lappend auto_path ../demos/toasters

# ----------------------------------------------------------------------
#  Outlets send bills to an e-mail address.  Determine this address.
# ----------------------------------------------------------------------
if {[info exists env(USER)]} {
    set Owner $env(USER)
} elseif {[info exists env(LOGNAME)]} {
    set Owner $env(LOGNAME)
} else {
    set Owner [exec logname]
}

# ----------------------------------------------------------------------
#  TOASTERS
# ----------------------------------------------------------------------
test {Create a toaster and plug it in} {
    global Owner
    Toaster original -heat 1 -outlet [Outlet #auto -owner $Owner]
} {
    $result == "original"
}

test {Turn up the heat setting on the toaster} {
    original config -heat 5
} {
    $result == ""
}

test {Toast a few slices of bread} {
    original toast 2
} {
    $result == "crumb tray: 25% full"
}

test {Clean the toaster} {
    original clean
} {
    $result == "crumb tray: 0% full"
}

test {Toast a few slices of bread a few different times} {
    original clean
    original toast 2
    original toast 1
} {
    $result == "crumb tray: 38% full"
}

test {Toast too many slices of bread and cause a fire} {
    puts stdout ">>> should say \"== FIRE! FIRE! ==\""
    original clean
    original toast 2
    original toast 2
    original toast 2
    original toast 2
} {
    $result == "crumb tray: 100% full"
}

test {Destroy the toaster} {
    original clean
    original toast 2
    original toast 1
    puts stdout ">>> should say \"15 crumbs ... what a mess!\""
    original delete
} {
    $result == ""
}

# ----------------------------------------------------------------------
#  SMART TOASTERS
# ----------------------------------------------------------------------
test {Create a toaster and plug it in} {
    global Owner
    SmartToaster deluxe -heat 4 -outlet [Outlet #auto -owner $Owner]
} {
    $result == "deluxe"
}

test {Toast a few slices of bread} {
    deluxe toast 2
} {
    $result == "crumb tray: 20% full"
}

test {Toast a few slices of bread and look for auto-clean} {
    deluxe clean
    deluxe toast 2
    deluxe toast 2
    deluxe toast 2
    deluxe toast 2
    deluxe toast 2
} {
    $result == "crumb tray: 20% full"
}

# ----------------------------------------------------------------------
#  PRODUCT STATISTICS
# ----------------------------------------------------------------------
test {Check statistics gathered by Hazard base class} {
    set tmp [Toaster #auto]
    set stats [Hazard :: report Toaster]
    $tmp delete
    set stats
} {
    $result == "Toaster: 2 produced, 1 active, 1 accidents"
}

test {Check statistics gathered by Hazard base class} {
    Hazard :: report SmartToaster
} {
    $result == "SmartToaster: 1 produced, 1 active, 0 accidents"
}

test {Destroy all Toasters} {
    foreach toaster [itcl_info objects -isa Toaster] {
        $toaster clean
        $toaster delete
    }
} {
    $result == ""
}

test {SmartToasters should have been destroyed along with Toasters} {
    itcl_info objects -class SmartToaster
} {
    $result == ""
}

# ----------------------------------------------------------------------
#  OUTLETS
# ----------------------------------------------------------------------
test {Bill all customers for outlet charges} {
    Outlet :: bill
    puts stdout ">>> should send two bills for outlets via e-mail"
} {
    $result == ""
}

test {Destroy all outlets} {
    foreach outlet [itcl_info objects -class Outlet] {
        $outlet delete
    }
} {
    $result == ""
}