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

   1 #!/usr/bin/expect --
   2 ################################################################################
   3 #
   4 # File:         showchannel.exp
   5 # Description:  Tests show channel 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 set test_base "/dview/defaria_default/Tools/testing"
  15
  16 source "$test_base/bin/TestPkg.tcl"
  17
  18 catch {namespace import Test::*}
  19
  20 proc Setup {} {
  21   Start "show channel"
  22 }
  23
  24 proc Run {} {
  25   set Test::result 1
  26
  27   set more 1
  28   send "show channel 1/1.*\r"
  29
  30   while {$more} {
  31     expect {
  32       $Test::success {
  33         set Test::result 0
  34         set more 0
  35       }
  36       "Q to Quit" {
  37         send "Q\r"
  38       }
  39     }
  40   }
  41 }
  42
  43 proc CleanUp {} {
  44   End
  45 }
  46
  47 # Main
  48 Setup
  49 Run
  50 CleanUp