Artifact 2149fbf923e9bf17feb0a9d78cf0e4913b5ea5a1:

• Executable file tsmf/test-server.tcl — part of check-in [bf33f043ce] at 2024-03-07 19:59:04 on branch trunk — Fix path to services (must be absolute) (user: rkeene, size: 733) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

set workdir [file normalize [file dirname [info script]]]

# For TSMF
lappend auto_path [file join $workdir lib]

# For the TUAPI package
lappend auto_path [file join $workdir ..]

package require tsmf

# Create a new log directory for this run
set logdir [file join $workdir test-log]
file delete -force $logdir
file mkdir $logdir

set svcdir [file join $workdir test-svc]

# Initialize the TSMF server
::tsmf::server::init [list \
	svcdir [file join $workdir test-svc] \
	confdirs [list [file join $workdir test-svc]] \
	logdir $logdir \
]
puts "INIT complete"

puts "Starting service..."
set result [::tsmf::server::wait svc://test1 started]
puts "OK! $result"

puts "Initialization complete"

vwait ::done