Posted to tcl by DamonC at Tue Jan 25 01:40:45 GMT 2011view raw

  1. LD_LIBRARY_PATH=".:/usr/local/lib:" PATH=".:/usr/local/lib:/usr/local/bin:/usr/bin:/bin:/usr/games" TCLLIBPATH="." TDBCMYSQL_LIBRARY=`echo ./library` TCL_LIBRARY=`echo /usr/local/src/tcl-cvs/library` TDBC_LIBRARY=`echo /usr/local/src/TDBC.zip/tdbc/library` /usr/local/bin/tclsh8.6 `echo ./tests/all.tcl` \
  2. -load "package ifneeded tdbc::mysql 1.0b16 \
  3. [list source `echo ./library/tdbcmysql.tcl`]\;[list load `echo libtdbcmysql1.0b16.so` tdbcmysql]"
  4. Tests running in interp: /usr/local/bin/tclsh8.6
  5. Tests located in: /usr/local/src/TDBC.zip/tdbcmysql/tests
  6. Tests running in: /usr/local/src/TDBC.zip/tdbcmysql
  7. Temporary files stored in /usr/local/src/TDBC.zip/tdbcmysql
  8. Test files run in separate interpreters
  9. Running tests that match: *
  10. Skipping test files that match: l.*.test
  11. Only running test files that match: *.test
  12. Tests began at Tue Jan 25 01:33:16 UTC 2011
  13. tdbcmysql.test
  14.  
  15.  
  16. ==== tdbc::mysql-1.6 create a connection, bad port FAILED
  17. ==== Contents of test case:
  18.  
  19. tdbc::mysql::connection create db -port 999999999999
  20.  
  21. ---- Result was:
  22. integer value too large to represent as non-long integer
  23. ---- Result should have been (exact matching):
  24. integer value too large to represent
  25. ==== tdbc::mysql-1.6 FAILED
  26.  
  27.  
  28.  
  29. ==== tdbc::mysql-24.4 Foreign keys - list all FAILED
  30. ==== Contents of test case:
  31.  
  32. set result {}
  33. set wanted {fk_b1 {} fk_b2 {} fk_c1 {} fk_c2 {} fk_cpair {}}
  34. foreach row [::db foreignkeys] {
  35. if {[dict exists $wanted [dict get $row foreignConstraintName]]} {
  36. dict set result [dict get $row foreignConstraintName] [dict get $row ordinalPosition] [list [dict get $row foreignTable] [dict get $row foreignColumn] [dict get $row primaryTable] [dict get $row primaryColumn]]
  37. }
  38. }
  39. lsort -index 0 -stride 2 $result
  40.  
  41. ---- Test generated error; Return code was: 1
  42. ---- Return code should have been one of: 0 2
  43. ---- errorInfo: Unknown table 'REFERENTIAL_CONSTRAINTS' in information_schema
  44. while executing
  45. "my statementCreate Stmt::[incr statementSeq] [self] $sqlcode"
  46. (class "::tdbc::connection" method "prepare" line 2)
  47. invoked from within
  48. "my prepare "
  49. SELECT rc.CONSTRAINT_SCHEMA AS \"foreignConstraintSchema\",
  50. rc.CONSTRAINT_NAME AS \"foreignConstraintName\",
  51. ..."
  52. (class "::tdbc::mysql::connection" method "BuildForeignKeysStatement" line 11)
  53. invoked from within
  54. "my BuildForeignKeysStatement"
  55. (class "::tdbc::connection" method "foreignkeys" line 33)
  56. invoked from within
  57. "::db foreignkeys"
  58. ("uplevel" body line 4)
  59. invoked from within
  60. "uplevel 1 $script"
  61. ---- errorCode: TDBC SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION 42S02 MYSQL 1109
  62. ==== tdbc::mysql-24.4 FAILED
  63.  
  64.  
  65.  
  66. ==== tdbc::mysql-24.5 Foreign keys - -foreign FAILED
  67. ==== Contents of test case:
  68.  
  69. set result {}
  70. set wanted {fk_b1 {} fk_b2 {} fk_c1 {} fk_c2 {} fk_cpair {}}
  71. foreach row [::db foreignkeys -foreign c] {
  72. if {[dict exists $wanted [dict get $row foreignConstraintName]]} {
  73. dict set result [dict get $row foreignConstraintName] [dict get $row ordinalPosition] [list [dict get $row foreignTable] [dict get $row foreignColumn] [dict get $row primaryTable] [dict get $row primaryColumn]]
  74. }
  75. }
  76. lsort -index 0 -stride 2 $result
  77.  
  78. ---- Test generated error; Return code was: 1
  79. ---- Return code should have been one of: 0 2
  80. ---- errorInfo: Unknown table 'REFERENTIAL_CONSTRAINTS' in information_schema
  81. while executing
  82. "my statementCreate Stmt::[incr statementSeq] [self] $sqlcode"
  83. (class "::tdbc::connection" method "prepare" line 2)
  84. invoked from within
  85. "my prepare "
  86. SELECT rc.CONSTRAINT_SCHEMA AS \"foreignConstraintSchema\",
  87. rc.CONSTRAINT_NAME AS \"foreignConstraintName\",
  88. ..."
  89. (class "::tdbc::mysql::connection" method "BuildForeignKeysStatement" line 11)
  90. invoked from within
  91. "my BuildForeignKeysStatement"
  92. (class "::tdbc::connection" method "foreignkeys" line 33)
  93. invoked from within
  94. "::db foreignkeys -foreign c"
  95. ("uplevel" body line 4)
  96. invoked from within
  97. "uplevel 1 $script"
  98. ---- errorCode: TDBC SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION 42S02 MYSQL 1109
  99. ==== tdbc::mysql-24.5 FAILED
  100.  
  101.  
  102.  
  103. ==== tdbc::mysql-24.6 Foreign keys - -primary FAILED
  104. ==== Contents of test case:
  105.  
  106. set result {}
  107. set wanted {fk_b1 {} fk_b2 {} fk_c1 {} fk_c2 {} fk_cpair {}}
  108. foreach row [::db foreignkeys -primary a] {
  109. if {[dict exists $wanted [dict get $row foreignConstraintName]]} {
  110. dict set result [dict get $row foreignConstraintName] [dict get $row ordinalPosition] [list [dict get $row foreignTable] [dict get $row foreignColumn] [dict get $row primaryTable] [dict get $row primaryColumn]]
  111. }
  112. }
  113. lsort -index 0 -stride 2 $result
  114.  
  115. ---- Test generated error; Return code was: 1
  116. ---- Return code should have been one of: 0 2
  117. ---- errorInfo: Unknown table 'REFERENTIAL_CONSTRAINTS' in information_schema
  118. while executing
  119. "my statementCreate Stmt::[incr statementSeq] [self] $sqlcode"
  120. (class "::tdbc::connection" method "prepare" line 2)
  121. invoked from within
  122. "my prepare "
  123. SELECT rc.CONSTRAINT_SCHEMA AS \"foreignConstraintSchema\",
  124. rc.CONSTRAINT_NAME AS \"foreignConstraintName\",
  125. ..."
  126. (class "::tdbc::mysql::connection" method "BuildForeignKeysStatement" line 11)
  127. invoked from within
  128. "my BuildForeignKeysStatement"
  129. (class "::tdbc::connection" method "foreignkeys" line 33)
  130. invoked from within
  131. "::db foreignkeys -primary a"
  132. ("uplevel" body line 4)
  133. invoked from within
  134. "uplevel 1 $script"
  135. ---- errorCode: TDBC SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION 42S02 MYSQL 1109
  136. ==== tdbc::mysql-24.6 FAILED
  137.  
  138.  
  139.  
  140. ==== tdbc::mysql-24.7 Foreign keys - -foreign and -primary FAILED
  141. ==== Contents of test case:
  142.  
  143. set result {}
  144. set wanted {fk_b1 {} fk_b2 {} fk_c1 {} fk_c2 {} fk_cpair {}}
  145. foreach row [::db foreignkeys -foreign c -primary b] {
  146. if {[dict exists $wanted [dict get $row foreignConstraintName]]} {
  147. dict set result [dict get $row foreignConstraintName] [dict get $row ordinalPosition] [list [dict get $row foreignTable] [dict get $row foreignColumn] [dict get $row primaryTable] [dict get $row primaryColumn]]
  148. }
  149. }
  150. lsort -index 0 -stride 2 $result
  151.  
  152. ---- Test generated error; Return code was: 1
  153. ---- Return code should have been one of: 0 2
  154. ---- errorInfo: Unknown table 'REFERENTIAL_CONSTRAINTS' in information_schema
  155. while executing
  156. "my statementCreate Stmt::[incr statementSeq] [self] $sqlcode"
  157. (class "::tdbc::connection" method "prepare" line 2)
  158. invoked from within
  159. "my prepare "
  160. SELECT rc.CONSTRAINT_SCHEMA AS \"foreignConstraintSchema\",
  161. rc.CONSTRAINT_NAME AS \"foreignConstraintName\",
  162. ..."
  163. (class "::tdbc::mysql::connection" method "BuildForeignKeysStatement" line 11)
  164. invoked from within
  165. "my BuildForeignKeysStatement"
  166. (class "::tdbc::connection" method "foreignkeys" line 33)
  167. invoked from within
  168. "::db foreignkeys -foreign c -primary b"
  169. ("uplevel" body line 4)
  170. invoked from within
  171. "uplevel 1 $script"
  172. ---- errorCode: TDBC SYNTAX_ERROR_OR_ACCESS_RULE_VIOLATION 42S02 MYSQL 1109
  173. ==== tdbc::mysql-24.7 FAILED
  174.  
  175.  
  176. Tests ended at Tue Jan 25 01:33:16 UTC 2011
  177. all.tcl: Total 176 Passed 171 Skipped 0 Failed 5
  178. Sourced 1 Test Files.
  179. Files with failing tests: tdbcmysql.test
  180.