defaria.com/Computers/code/testing/tests/cli/showace.exp

   1 #!/usr/bin/expect --
   2 ################################################################################
   3 #
   4 # File:         showace.exp
   5 # Description:  Tests show ace command
   6 # Author:       Andrew@DeFaria.com
   7 # Created:      Fri Jun  6 15:37:15 PDT 2003
   8 # Language:     Expect
   9 # Test Class:   CLI
  10 #
  11 # (c) Copyright 2003, Andrew@DeFaria.com, all rights reserved
  12 #
  13 ################################################################################
  14 # Source in the Testing package
  15 set test_base "/dview/defaria_default/Tools/testing"
  16
  17 source "$test_base/bin/TestPkg.tcl"
  18
  19 catch {namespace import Test::*}
  20
  21 proc Setup {} {
  22   Start "show ace"
  23 }
  24
  25 proc Run {} {
  26   set Test::result 1
  27
  28   send "show ace\r"
  29
  30   expect {
  31     $Test::success {
  32       set Test::result 0
  33     }
  34   }
  35 }
  36
  37 proc CleanUp {} {
  38   End
  39 }
  40
  41 # Main
  42 Setup
  43 Run
  44 CleanUp