Enable to track git://github.com/monaka/binutils.git

[pf3gnuchains/pf3gnuchains3x.git] / itcl / itcl / tests / old / toaster.test

diff --git a/itcl/itcl/tests/old/toaster.test b/itcl/itcl/tests/old/toaster.test
new file mode 100644 (file)
index 0000000..593676a
--- /dev/null
+++ b/itcl/itcl/tests/old/toaster.test
@@ -0,0 +1,165 @@
+#
+# Tests for "toaster" example
+# ----------------------------------------------------------------------
+#   AUTHOR:  Michael J. McLennan
+#            Bell Labs Innovations for Lucent Technologies
+#            mmclennan@lucent.com
+#            http://www.tcltk.com/itcl
+#
+#      RCS:  $Id$
+# ----------------------------------------------------------------------
+#            Copyright (c) 1993-1998  Lucent Technologies, Inc.
+# ======================================================================
+# See the file "license.terms" for information on usage and
+# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+
+# ----------------------------------------------------------------------
+#  Get toaster classes from "demos" directory.
+# ----------------------------------------------------------------------
+lappend auto_path 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 == ""
+}