#!/bin/sh
# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com>
# vim:set ft=tcl: \
exec tclsh "$0" "$@"

package require sqlite3
package require md5
package require json::write
source ./profiler.tcl
source ./GradeBook_lib.tcl

if { $argc < 2 } {	
	puts {Profile and test built-in library procs}
	puts {Usage:}
	puts "  $argv0 database_name ProcName \[arg1\] \[arg2\] \[arg3\] ..." 
	puts {}
	puts {Example:}
	puts [join [list {  } $argv0 tests/test_class.db UpdateGradesTableStatistic dummy1 dummy2] " "]
	exit
}

set dbfile [lindex $argv 0] 
set ProcName [lindex $argv 1] 
set arg_list [lrange $argv 2 end]

sqlite3 db $dbfile

$ProcName {*}$arg_list

global TimeProfilerMode
if { [info exists TimeProfilerMode] } {
	TimeProfilerDump description
 }

db close

# vim: ts=2 sw=2 foldmethod=indent: