ycl

Artifact [b0a5c1456b]
Login

Artifact [b0a5c1456b]

Artifact b0a5c1456b10983094122e1e08305fef5505701d:


#! /bin/env tclsh

proc suite_main {} {
	package require {ycl list}
	namespace import [yclprefix]::list::sl
	package require {ycl test}
	[yclprefix]::test::init
	package require {ycl math rng}
	namespace import [yclprefix]::math::rng

	test rng {} -body {
		lappend result [string length [rng take 256]]
	} -result [sl {
		256
	}]

	cleanupTests
}