Artifact b0a5c1456b10983094122e1e08305fef5505701d:

• File packages/math/lib/rng.test.tcl — part of check-in [f3cf1ac833] at 2017-07-30 15:30:36 on branch trunk — {ycl math rng} {new package} (user: pooryorick size: 348)

#! /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
}