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

   1 #!/usr/bin/expect --
   2 ################################################################################
   3 #
   4 # File:         showimage.exp
   5 # Description:  Tests show image 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
  16 source "$test_base/bin/TestPkg.tcl"
  17
  18 catch {namespace import Test::*}
  19
  20 proc Setup {} {
  21   Start "show image"
  22 }
  23
  24 proc Run {} {
  25   set Test::result 1
  26
  27   send "show image\r"
  28
  29   expect {
  30     $Test::success {
  31       set Test::result 0
  32     }
  33   }
  34 }
  35
  36 proc CleanUp {} {
  37   End
  38 }
  39
  40 # Main
  41 Setup
  42 Run
  43 CleanUp