diff options
| author | unknown <tim@threads.polyesthetic.msg> | 2001-03-04 19:42:05 -0500 |
|---|---|---|
| committer | unknown <tim@threads.polyesthetic.msg> | 2001-03-04 19:42:05 -0500 |
| commit | ec6ae091617bdfdca9e65e8d3e65b950d234f676 (patch) | |
| tree | 9dd732e08dba156ee3d7635caedc0dc3107ecac6 /bdb/test/byteorder.tcl | |
| parent | 87d70fb598105b64b538ff6b81eef9da626255b1 (diff) | |
| download | mariadb-git-ec6ae091617bdfdca9e65e8d3e65b950d234f676.tar.gz | |
Import changeset
Diffstat (limited to 'bdb/test/byteorder.tcl')
| -rw-r--r-- | bdb/test/byteorder.tcl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/bdb/test/byteorder.tcl b/bdb/test/byteorder.tcl new file mode 100644 index 00000000000..d9e44e1d27d --- /dev/null +++ b/bdb/test/byteorder.tcl @@ -0,0 +1,23 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Sleepycat Software. All rights reserved. +# +# $Id: byteorder.tcl,v 11.7 2000/11/16 23:56:18 ubell Exp $ +# +# Byte Order Test +# Use existing tests and run with both byte orders. +proc byteorder { method {nentries 1000} } { + puts "Byteorder: $method $nentries" + + eval {test001 $method $nentries 0 "01" -lorder 1234} + eval {test001 $method $nentries 0 "01" -lorder 4321} + eval {test003 $method -lorder 1234} + eval {test003 $method -lorder 4321} + eval {test010 $method $nentries 5 10 -lorder 1234} + eval {test010 $method $nentries 5 10 -lorder 4321} + eval {test011 $method $nentries 5 11 -lorder 1234} + eval {test011 $method $nentries 5 11 -lorder 4321} + eval {test018 $method $nentries -lorder 1234} + eval {test018 $method $nentries -lorder 4321} +} |