X-Git-Url: https://git.sven.stormbind.net/?p=sven%2Fmysqltcl.git;a=blobdiff_plain;f=tests%2Ftest2.tcl;fp=tests%2Ftest2.tcl;h=7a4477b805191b89e28f1cbe186dc7490f74a0be;hp=0000000000000000000000000000000000000000;hb=8b83892bf9d924349d5e09c88f16790a8086a950;hpb=b47a140e1d8fa10b34c244d077b2a3a7f36c7ff8

diff --git a/tests/test2.tcl b/tests/test2.tcl
new file mode 100755
index 0000000..7a4477b
--- /dev/null
+++ b/tests/test2.tcl
@@ -0,0 +1,26 @@
+#!/usr/bin/tcl
+# Simple Test file to test all mysqltcl commands and parameters
+# please create test database first
+# from test.sql file
+# >mysql -u root
+# >create database uni;
+#
+# >mysql -u root <test.sql
+# please adapt the parameters for mysqlconnect some lines above
+
+if {[file exists libload.tcl]} {
+    source libload.tcl
+} else {
+    source [file join [file dirname [info script]] libload.tcl]
+}
+
+set handle [mysqlconnect -user root]
+
+# use implicit database notation
+puts "1 rows [mysqlsel $handle {select * from uni.Student}]"
+puts "1 Table-col [mysqlcol $handle -current {name type length table non_null prim_key decimals numeric}]"
+puts "1 [mysqlnext $handle]"
+
+# Test sel and next functions
+mysqluse $handle uni
+puts "rows [mysqlsel $handle {select * from Student} -list]"