byteorder.tcl
Upload User: tsgydb
Upload Date: 2007-04-14
Package Size: 10674k
Code Size: 1k
Category:

MySQL

Development Platform:

Visual C++

  1. # See the file LICENSE for redistribution information.
  2. #
  3. # Copyright (c) 1996, 1997, 1998, 1999, 2000
  4. # Sleepycat Software.  All rights reserved.
  5. #
  6. # $Id: byteorder.tcl,v 11.7 2000/11/16 23:56:18 ubell Exp $
  7. #
  8. # Byte Order Test
  9. # Use existing tests and run with both byte orders.
  10. proc byteorder { method {nentries 1000} } {
  11. puts "Byteorder: $method $nentries"
  12. eval {test001 $method $nentries 0 "01" -lorder 1234}
  13. eval {test001 $method $nentries 0 "01" -lorder 4321}
  14. eval {test003 $method -lorder 1234}
  15. eval {test003 $method -lorder 4321}
  16. eval {test010 $method $nentries 5 10 -lorder 1234}
  17. eval {test010 $method $nentries 5 10 -lorder 4321}
  18. eval {test011 $method $nentries 5 11 -lorder 1234}
  19. eval {test011 $method $nentries 5 11 -lorder 4321}
  20. eval {test018 $method $nentries -lorder 1234}
  21. eval {test018 $method $nentries -lorder 4321}
  22. }