mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 16:33:29 +00:00
add some byte swapping tests based on mySTEP
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@36141 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
parent
862da70b18
commit
778ec037c4
1 changed files with 56 additions and 0 deletions
56
Tests/base/Functions/NSByteSwapping.m
Normal file
56
Tests/base/Functions/NSByteSwapping.m
Normal file
|
@ -0,0 +1,56 @@
|
|||
#import <Foundation/Foundation.h>
|
||||
#import "Testing.h"
|
||||
|
||||
int main()
|
||||
{
|
||||
NSAutoreleasePool *pool = [NSAutoreleasePool new];
|
||||
id o;
|
||||
float flt=M_PI;
|
||||
double dbl=M_PI;
|
||||
|
||||
PASS(NSSwapShort(0x1234) == (unsigned short)0x3412, "NSSwapShort works");
|
||||
|
||||
if (sizeof(long) == 4)
|
||||
{
|
||||
PASS(NSSwapLong(0x12345678L) == 0x78563412UL, "NSSwapLong works");
|
||||
}
|
||||
else if (sizeof(long) == 8)
|
||||
{
|
||||
PASS(NSSwapLongLong(0x123456789abcdef0LL) == 0xf0debc9a78563412LL,
|
||||
"NSSwapLongLong works");
|
||||
}
|
||||
|
||||
if (sizeof(long long) == 8)
|
||||
{
|
||||
PASS(NSSwapLongLong(0x123456789abcdef0LL) == 0xf0debc9a78563412LL,
|
||||
"NSSwapLongLong works");
|
||||
}
|
||||
|
||||
PASS(NSSwapBigFloatToHost(*((NSSwappedFloat *)&flt))
|
||||
== ((NSHostByteOrder() == NS_LittleEndian)
|
||||
? (float)-40331460896358400.0
|
||||
: (float)M_PI),
|
||||
"NSSwapBigFloatToHost works");
|
||||
|
||||
PASS(NSSwapLittleFloatToHost(*((NSSwappedFloat *)&flt))
|
||||
== ((NSHostByteOrder() == NS_BigEndian)
|
||||
? (float)-40331460896358400.0
|
||||
: (float)M_PI),
|
||||
"NSSwapLittleFloatToHost works");
|
||||
|
||||
PASS(NSSwapBigDoubleToHost(*((NSSwappedDouble *)&dbl))
|
||||
== ((NSHostByteOrder() == NS_LittleEndian)
|
||||
? 3.20737563067636581208678536384e-192
|
||||
: M_PI),
|
||||
"NSSwapBigDoubleToHost works");
|
||||
|
||||
PASS(NSSwapLittleDoubleToHost(*((NSSwappedDouble *)&dbl))
|
||||
== ((NSHostByteOrder() == NS_BigEndian)
|
||||
? 3.20737563067636581208678536384e-192
|
||||
: M_PI),
|
||||
"NSSwapLittleDoubleToHost wworks");
|
||||
|
||||
[pool release]; pool = nil;
|
||||
|
||||
return 0;
|
||||
}
|
Loading…
Reference in a new issue