This repository is a mirror!

Artifact f362e25e806c4b2e2a40ff559c173c6deb93f0ae:

• File freshlib/test_code/TestData/TestHashTree.asm — part of check-in [ed47530a7d] at 2019-06-30 19:21:21 on branch FreshLibDev — The hash tree library seems to be working now. Some tests are added. Faster string generation in GetRandomString. Some debug code added to StrLib. (user: johnfound size: 1543) [more...]

; _______________________________________________________________________________________
;|                                                                                       |
;| ..:: Fresh IDE ::..  template project.                                                |
;|_______________________________________________________________________________________|
;
;  Description: FreshLib portable console application.
;
;  Target OS: Any, supported by FreshLib
;
;  Dependencies: FreshLib
;
;  Notes:
;_________________________________________________________________________________________

include "%lib%/freshlib.inc"

@BinaryType console, compact

options.DebugMode = 1

include "%lib%/freshlib.asm"


include "%lib%/data/hashtree.asm"

start:
        InitializeAll

        mov     [ResizeIt], StrategyAgressive

        stdcall CreateArray, sizeof.THashTreeNode
        mov     edx, eax
        mov     ecx, 10000000

.add_loop:
        stdcall StrDupMem, "Test string"
        mov     ebx, eax

        stdcall NumToStr, ecx, ntsDec or ntsUnsigned
        stdcall StrCat, ebx, eax
        stdcall StrDel, eax

        stdcall SearchHashTree, edx, ebx, TRUE
        test    eax, eax
        jnz     @f

        stdcall StrDel, ebx
        OutputValue "String add error on ECX=", ecx, 10, -1
@@:
        loop    .add_loop

        OutputValue "Hash tree size: ", [edx+TArray.count], 10, -1

        stdcall FreeHashTree, edx

        FinalizeAll
        stdcall TerminateAll, 0