#! /bin/env tclsh

package require {ycl chan prototype test}
[yclprefix] test main $argv0 $argv {
	[yclprefix]::chan::prototype::test::suite_main
}

#! /bin/env tclsh

package require {ycl test}

proc suite_main {} {
	package require {ycl dir}
	namespace import [yclprefix]::dir
	package require {ycl list}
	namespace import [yclprefix]::list::sl
	package require {ycl chan prototype} 
	namespace import [yclprefix]::chan::prototype

	namespace import [yclprefix]::test::cleanup1
	[yclprefix]::test::init

	set setup1 {
		set chan [file tempfile]
	}

	test close_on_delete {} -setup $setup1 -body {
		[prototype .spawn chan1] init chan $chan
		lappend res [expr {$chan in [chan names]}]
		rename chan1 {}
		lappend res [expr {$chan in [chan names]}]
	} -cleanup [cleanup1] -result [sl {
		1 0
	}]


	cleanupTests
}

#! /bin/env tclsh

package require Thread

package require {ycl proc}
namespace import [yclprefix]::proc::checkargs

variable doc::tplex {
	description {

		Connect the outputs of one channel to the inputs of zero or more
		channels.
		
		Returns a list containing a new channel and a thread id.  The  new
		channel has all the attributes of $chan . The new channel is a pipe
		whose other end is in a separate thread which buffers the output of
		$chan , allowing the new channel to act as a synchronous channel , with
		the asynchronous event queue activity confined to the separate thread .

		The buffer uses an additive-increase/multiplicative-decrease strategy

#! /bin/env tclsh

package require {ycl chan vso test}
[yclprefix] test main $argv0 $argv {
	[yclprefix]::chan::vso::test::suite_main
}

#! /bin/env tclsh

package require {ycl test}

proc suite_main {} {
	package require {ycl chan vso}
	namespace import [yclprefix]::chan::vso
	package require {ycl chan}
	namespace import [yclprefix]::chan
	package require {ycl chan test}
	rename chan yclchan
	namespace import [yclprefix]::chan::write
	package require {ycl chan prototype} 
	namespace import [yclprefix]::chan::prototype
	package require {ycl dir}
	namespace import [yclprefix]::dir
	package require {ycl file}
	namespace import [yclprefix]::file::puts
	rename puts fputs
	#package require {ycl iter}
	package require {ycl list}
	namespace import [yclprefix]::list::sl
	package require {ycl ns}
	namespace import [yclprefix]::ns::normalize
	package require {ycl string}
	namespace import [yclprefix]::string::dedent
	package require {ycl test data}
	namespace upvar [yclprefix]::test::data turingtest1 turingtest1
	package require {ycl vso vso}
	package require {ycl chan prototype vso}
	namespace import [yclprefix]::vso::universe
	[yclprefix] chan vso populate universe 
	[yclprefix]::test::init
	namespace import [yclprefix]::test::cleanup1

	namespace upvar [yclprefix]::chan::test setup1 setup1

	universe router configure
	universe router iter
	universe router open 
	universe router close 
	universe router iter 
	universe router read 
	universe router seek 
	universe router write 
	universe enshroud

	test chan_vso {} -setup $setup1 -body {
		new chan chan1
		open chan1 $tmpdir/turing1 w
		write chan1 "123hello1\n"
		write chan1 "hello2\n"
		write chan1 "hello3\n"
		close chan1

		new chan chan1
		open chan1 $tmpdir/turing1
		lappend res [read chan1 3]
		[yclprefix] iter iter for line in [iter chan1] {
			lappend res $line
		}
		seek chan1 0
		[yclprefix] iter iter for line in [iter chan1] {
			lappend res $line
		}
		seek chan1 0
		configure chan1 -eof h 
		[yclprefix] iter iter for line in [iter chan1] {
			lappend res $line
		}

		#check for ability to read after [eof]
		configure chan1 -eof {}
		lappend res [read chan1]

		rename chan1 {}
		#puts [myfile $ chan] 
		#rename myfile {}
		set res
	} -cleanup [cleanup1] -result [sl {
		123 hello1 hello2 hello3
		123hello1 hello2 hello3
		123
		"hello1\nhello2\nhello3\n"
	}]

	cleanupTests
}