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

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