polserver/testsuite/pol/testpkgs/misc/test_polsystem.src
turleypol aa5ef40356
use nondeprecated openssl api (#555)
cleanup refptr
added test for md5_encrypt
2023-10-23 19:38:39 +02:00

17 lines
309 B
Text

use uo;
use os;
use polsys;
include "testutil";
program testpolsystem()
return 1;
endprogram
exported function test_md5()
var res := MD5Encrypt("Hello World");
if (res != "b10a8db164e0754105b7a99be72e3fe5")
return ret_error($"failed to generate hash, got {res}");
endif
return 1;
endfunction