1# -*- tcl -*-
2# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
3##
4# ###
5
6namespace eval ::sak::test {}
7
8# ###
9
10proc ::sak::test::usage {args} {
11    package require sak::help
12    puts stdout [join $args { }]\n[sak::help::on test]
13    exit 1
14}
15
16##
17# ###
18
19package provide sak::test 1.0
20