Load test IP and PORT numbers when SICS_SIMULATION is set.

This commit is contained in:
Ferdi Franceschini
2013-04-25 11:16:25 +10:00
parent d8b48728b4
commit c6f1dd6591

View File

@ -56,6 +56,13 @@ if {[info exists env(SICS_SIMULATION)] != 1} {
# sics_exitus
}
} else {
if [file exists hostport_config_test.tcl] {
fileeval hostport_config_test.tcl
} else {
#TODO SICS-587 Abort with error when all instruments have been refactored.
clientput ERROR: hostport_config_test.tcl is missing
sics_exitus
}
switch $env(SICS_SIMULATION) {
"full" {
set sicsroot ../
@ -66,13 +73,6 @@ if {[info exists env(SICS_SIMULATION)] != 1} {
set sicsroot ../
source sics_ports.tcl
sics_simulation fakedev
if [file exists hostport_config_test.tcl] {
fileeval hostport_config_test.tcl
} else {
#TODO SICS-587 Abort with error when all instruments have been refactored.
clientput ERROR: hostport_config_test.tcl is missing
sics_exitus
}
}
"script_validator" {
VarMake sics_script_validator Text internal
@ -88,6 +88,7 @@ if {[info exists env(SICS_SIMULATION)] != 1} {
}
}
# Set obj_simulation flags for each SICS_SIMULATION mode
switch $env(SICS_SIMULATION) {
"full" - "simdriv" - "script_validator" {
dict for {simflag d} $SIMFLAG_VAL {