From ec6ae091617bdfdca9e65e8d3e65b950d234f676 Mon Sep 17 00:00:00 2001 From: unknown Date: Sun, 4 Mar 2001 19:42:05 -0500 Subject: Import changeset --- bdb/test/byteorder.tcl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 bdb/test/byteorder.tcl (limited to 'bdb/test/byteorder.tcl') 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} +} -- cgit v1.2.1