sid/component/testsuite/sidcomp.ide/idebase.exp

   1 set test "sid configuration"
   2 sid_config_component_test "idebase.conf" \
   3     "load [sid_find_file libide.la] ide_component_library" \
   4     "hw-disk-ide"
   5 pass $test
   6
   7 set test "sid startup"
   8 if [sid_start "idebase.conf"] then { pass $test } else { fail $test ; return }
   9
  10 set test "set some parameters"
  11 sid_cmd [list sid::component::set_attribute_value $victim drive0-present? 1]
  12 sid_cmd [list sid::component::set_attribute_value $victim drive0-file "/dev/null"]
  13
  14 set test "save state snapshot"
  15 set state [sid_cmd [list sid::component::attribute_value $victim state-snapshot]]
  16 # verbose -log "state = $state" 1
  17 if {$state != ""} then { pass $test } else { fail $test }
  18
  19 set test "set some more parameters"
  20 sid_cmd [list sid::component::set_attribute_value $victim drive1-present? 1]
  21 sid_cmd [list sid::component::set_attribute_value $victim drive1-file "/dev/null"]
  22
  23 set test "restore state snapshot"
  24 set ok [sid_cmd [list sid::component::set_attribute_value $victim state-snapshot $state]]
  25 if {$ok == "ok"} then { pass $test } else { fail $test }
  26
  27 set test "compare new state snapshot"
  28 set state2 [sid_cmd [list sid::component::attribute_value $victim state-snapshot]]
  29 if {$state == $state2} then { pass $test } else { fail $test }
  30
  31 set test "set toughie state parameters"
  32 sid_cmd [list sid::component::set_attribute_value $victim drive0-present? yes]
  33 sid_cmd [list sid::component::set_attribute_value $victim drive0-file "D:\\drive0"]
  34 sid_cmd [list sid::component::set_attribute_value $victim drive0-num-cylinders 1]
  35 sid_cmd [list sid::component::set_attribute_value $victim drive0-num-heads 12]
  36 sid_cmd [list sid::component::set_attribute_value $victim drive0-num-sectors-per-track 3]
  37 set state [sid_cmd [list sid::component::attribute_value $victim state-snapshot]]
  38 set r [sid_cmd [list sid::component::set_attribute_value $victim state-snapshot $state]]
  39 if {$r == "ok"} then { pass $test } else { fail $test }
  40
  41
  42 set test "sid stop"
  43 if [sid_stop] then { pass $test } else { fail $test ; return }
  44
  45
  46 # zap temp file if tests were successful
  47 global exit_status
  48 if {$exit_status == "0"} then { file delete "idebase.conf" }