1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: byteorder.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# Byte Order Test 8# Use existing tests and run with both byte orders. 9proc byteorder { method {nentries 1000} } { 10 source ./include.tcl 11 puts "Byteorder: $method $nentries" 12 13 eval {test001 $method $nentries 0 0 "001" -lorder 1234} 14 eval {verify_dir $testdir} 15 eval {test001 $method $nentries 0 0 "001" -lorder 4321} 16 eval {verify_dir $testdir} 17 eval {test003 $method -lorder 1234} 18 eval {verify_dir $testdir} 19 eval {test003 $method -lorder 4321} 20 eval {verify_dir $testdir} 21 eval {test010 $method $nentries 5 "010" -lorder 1234} 22 eval {verify_dir $testdir} 23 eval {test010 $method $nentries 5 "010" -lorder 4321} 24 eval {verify_dir $testdir} 25 eval {test011 $method $nentries 5 "011" -lorder 1234} 26 eval {verify_dir $testdir} 27 eval {test011 $method $nentries 5 "011" -lorder 4321} 28 eval {verify_dir $testdir} 29 eval {test018 $method $nentries -lorder 1234} 30 eval {verify_dir $testdir} 31 eval {test018 $method $nentries -lorder 4321} 32 eval {verify_dir $testdir} 33} 34