Artifact 0a8b0365405696347ca4bcf65c023df29d7fdb77:

• File packages/parse/lib/h/http/util.test.tcl — part of check-in [b11a0de453] at 2018-08-03 18:39:20 on branch trunk — parse html util test new package (user: pooryorick size: 476)

#! /bin/env tclsh

package require {ycl test}

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


	namespace import [yclprefix]::parse::http::util
	namespace import [yclprefix]::test::cleanup1

	[yclprefix]::test::init

	test token {} -body {
		lappend res [util token one]
		catch {util token o\"ne} cres
		lappend res $cres
		return $res
	} -cleanup [cleanup1] -result [sl {
		one
		[list {invalid token} o\"ne]
	}]

	cleanupTests

}