Re: Add queue

[Sean Murphy <murphys@teltec.dcu.ie>]

> I want to see example of queue monitor, but tcl/test/test-suite-intserv.tcl
> has following errors.
> Can you correct these errors?

No. But it does seem to be the case that the command 'new Test/$test' is
being called with no value for '$test' i.e. the variable exists but its
value is ''. This is at line 6 in the procedure Testsuite. If you can
figure out why $test has no value, and determine what it should be, you
might be able to solve the problem.

> And, I don't understand "$self" in the tcl/test/test-suite-intserv.tcl.
> Is it variable? if so, where is it declared?

$self acts a bit like this in c++. It's a reference to the current object.
I've mainly seen it used in the init function for a TCL class (which I
think is kinda like a constructor). There, '$self next' is often invoked,
which means call the init function of the parent class. It's not declared
as such - it's automatically (not in the c sense!) defined inside any
method of an otcl class.

Sean.

> Thank you in advance..
> ____________
> invalid command name "Test/"
>     while executing
> "Test/ create _o3 "
>     invoked from within
> "catch "$className create $o $args" msg"
>     (procedure "new" line 3)
>     invoked from within
> "new Test/$test"
>     (procedure "TestSuite" line 6)
>     (TestSuite runTest line 6)
>     invoked from within
> "TestSuite runTest"
>     (file "test-suite-intserv.tcl" line 406)
> 
> Haobo Yu wrote:
> 
> > tcl/test/test-suite-intserv.tcl has some example of using queue monitors.
> > Grep for monitor.
> >
> > - Haobo
> >
> 


-----
Sean Murphy,			Email: sean.murphy@teltec.dcu.ie
Teltec Ireland,			Phone: +353-1-7045080
DCU, Dublin 9,			Fax:   +353-1-7045092
Ireland.