зеркало из https://github.com/mozilla/gecko-dev.git
26 строки
859 B
Tcl
26 строки
859 B
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1996, 1997, 1998
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# @(#)byteorder.tcl 8.4 (Sleepycat) 4/10/98
|
|
#
|
|
# Byte Order Test
|
|
# Use existing tests and run with both byte orders.
|
|
proc byteorder { method {nentries 1000} } {
|
|
set opts [convert_args $method ""]
|
|
set method [convert_method $method]
|
|
puts "Byteorder: $method $nentries"
|
|
|
|
test001 $method $nentries -order 1234 $opts
|
|
test001 $method $nentries -order 4321 $opts
|
|
test003 $method -order 1234 $opts
|
|
test003 $method -order 4321 $opts
|
|
test010 $method $nentries 5 10 -order 1234 $opts
|
|
test010 $method $nentries 5 10 -order 4321 $opts
|
|
test011 $method $nentries 5 11 -order 1234 $opts
|
|
test011 $method $nentries 5 11 -order 4321 $opts
|
|
test018 $method $nentries -order 1234 $opts
|
|
test018 $method $nentries -order 4321 $opts
|
|
}
|