96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
134 lines
4.4 KiB
Plaintext
134 lines
4.4 KiB
Plaintext
#require "hblzf"
|
|
|
|
#define TEST_STRING "This is test of LZF extension"
|
|
#define _NREPL_ 128
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL cStr, str_compressed, str_decompressed
|
|
LOCAL b64_expected_result := "BFRoaXMgIAIUdGVzdCBvZiBMWkYgZXh0ZW5zaW9u"
|
|
LOCAL nLen, nResult := 0
|
|
|
|
? "LZF API version is", ;
|
|
hb_ntos( hb_lzf_version() ) + " (0x" + hb_NumToHex( hb_lzf_version() ) + ")"
|
|
? "LibLZF optimized for", iif( hb_lzf_optimized_for_speed(), "speed.", "compression." )
|
|
|
|
? "--- test 1 ---"
|
|
/*
|
|
If the output buffer is not large enough or any error occurs
|
|
hb_lzf_compress() returns NIL
|
|
*/
|
|
cStr := TEST_STRING
|
|
str_compressed := hb_lzf_compress( cStr, 15, @nResult )
|
|
|
|
IF nResult == HB_LZF_OK
|
|
? "Lenght of a string is", hb_ntos( Len( cStr ) )
|
|
? "Lenght of a compressed string is", hb_ntos( Len( str_compressed ) )
|
|
ELSE
|
|
? "hb_lzf_compress() returns", iif( nResult == HB_LZF_BUF_ERROR, "LZF_BUF_ERROR", "LZF_MEM_ERROR" )
|
|
ENDIF
|
|
|
|
? "--- test 2 ---"
|
|
cStr := TEST_STRING
|
|
str_compressed := Space( 15 )
|
|
str_compressed := hb_lzf_compress( cStr, @str_compressed, @nResult )
|
|
|
|
IF nResult == HB_LZF_OK
|
|
? "Lenght of a string is", hb_ntos( Len( cStr ) )
|
|
? "Lenght of a compressed string is", hb_ntos( Len( str_compressed ) )
|
|
ELSE
|
|
? "hb_lzf_compress() returns", iif( nResult == HB_LZF_BUF_ERROR, "LZF_BUF_ERROR", "LZF_MEM_ERROR" )
|
|
ENDIF
|
|
|
|
? "--- test 3 ---"
|
|
nLen := hb_lzf_compressbound( cStr )
|
|
|
|
cStr := TEST_STRING
|
|
str_compressed := hb_lzf_compress( cStr, nLen, @nResult )
|
|
|
|
IF nResult == HB_LZF_OK
|
|
? "Lenght of a string is", hb_ntos( Len( cStr ) )
|
|
? "Lenght of a compressed string is", hb_ntos( Len( str_compressed ) )
|
|
|
|
? iif( hb_base64Encode( str_compressed ) == b64_expected_result, "OK!", "not OK!" )
|
|
ELSE
|
|
? "hb_lzf_compress() returns", iif( nResult == HB_LZF_BUF_ERROR, "LZF_BUF_ERROR", "LZF_MEM_ERROR" )
|
|
ENDIF
|
|
|
|
? "--- test 4 ---"
|
|
nLen := hb_lzf_compressbound( cStr )
|
|
str_compressed := Space( nLen )
|
|
|
|
cStr := TEST_STRING
|
|
str_compressed := hb_lzf_compress( cStr, @str_compressed, @nResult )
|
|
|
|
IF nResult == HB_LZF_OK
|
|
? "Lenght of a string is", hb_ntos( Len( cStr ) )
|
|
? "Lenght of a compressed string is", hb_ntos( Len( str_compressed ) )
|
|
|
|
? iif( hb_base64Encode( str_compressed ) == b64_expected_result, "OK!", "not OK!" )
|
|
ELSE
|
|
? "hb_lzf_compress() returns", iif( nResult == HB_LZF_BUF_ERROR, "LZF_BUF_ERROR", "LZF_MEM_ERROR" )
|
|
ENDIF
|
|
|
|
? "--- test 5 ---"
|
|
cStr := Replicate( TEST_STRING, _NREPL_ )
|
|
str_compressed := hb_lzf_compress( cStr, NIL, @nResult )
|
|
|
|
IF nResult == HB_LZF_OK
|
|
? "Lenght of a string is", hb_ntos( Len( cStr ) )
|
|
? "Lenght of a compressed string is", hb_ntos( Len( str_compressed ) )
|
|
ELSE
|
|
? "hb_lzf_compress() returns", iif( nResult == HB_LZF_BUF_ERROR, "LZF_BUF_ERROR", "LZF_MEM_ERROR" )
|
|
ENDIF
|
|
|
|
? "--- test 6 ---"
|
|
str_decompressed := hb_lzf_decompress( str_compressed, NIL, @nResult )
|
|
|
|
IF nResult == HB_LZF_DATA_CORRUPTED
|
|
? "LZF decompression failed, compressed data corrupted"
|
|
ELSE
|
|
? iif( cStr == str_decompressed, "OK!", "not OK!" )
|
|
ENDIF
|
|
|
|
? "--- test 7 ---"
|
|
cStr := Replicate( TEST_STRING, _NREPL_ )
|
|
str_compressed := hb_ZCompress( cStr, NIL, @nResult )
|
|
|
|
str_decompressed := hb_lzf_decompress( str_compressed, NIL, @nResult )
|
|
|
|
IF nResult == HB_LZF_DATA_CORRUPTED
|
|
? "LZF decompression failed, compressed data corrupted!"
|
|
ELSE
|
|
? iif( cStr == str_decompressed, "OK!", "not OK!" )
|
|
ENDIF
|
|
|
|
? "--- test 8 ---"
|
|
cStr := Replicate( TEST_STRING, _NREPL_ )
|
|
str_compressed := hb_lzf_compress( cStr, NIL, @nResult )
|
|
|
|
str_decompressed := Space( 4096 )
|
|
str_decompressed := hb_lzf_decompress( str_compressed, @str_decompressed, @nResult )
|
|
|
|
IF nResult == HB_LZF_DATA_CORRUPTED
|
|
? "LZF decompression failed, compressed data corrupted!"
|
|
ELSE
|
|
? iif( cStr == str_decompressed, "OK!", "not OK!" )
|
|
ENDIF
|
|
|
|
? "--- test 9 ---"
|
|
cStr := Replicate( TEST_STRING, _NREPL_ )
|
|
str_compressed := hb_lzf_compress( cStr, NIL, @nResult )
|
|
|
|
str_decompressed := ""
|
|
str_decompressed := hb_lzf_decompress( str_compressed, @str_decompressed, @nResult )
|
|
|
|
IF nResult != HB_LZF_OK
|
|
? "hb_lzf_decompress() returns", ;
|
|
iif( nResult == HB_LZF_MEM_ERROR, "HB_LZF_MEM_ERROR", hb_ntos( nResult ) )
|
|
ELSE
|
|
? iif( cStr == str_decompressed, "OK!", "not OK!" )
|
|
ENDIF
|
|
|
|
RETURN
|