Skip to content

Commit 34efb05

Browse files
MHummMHumm
committed
Completed the tests for TFormat_BCryptBSD
1 parent b4d68d9 commit 34efb05

File tree

1 file changed

+125
-5
lines changed

1 file changed

+125
-5
lines changed

‎Unit Tests/Tests/TestDECFormat.pas‎

Lines changed: 125 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -397,19 +397,139 @@ TestTFormat_BCryptBSD = class(TFormatTestsBase)
397397
FFormat_BCryptBSD: TFormat_BCryptBSD;
398398

399399
const
400-
cTestDataEncode : array[1..2] of TestRecRawByteString = (
400+
cTestDataEncode : array[1..22] of TestRecRawByteString = (
401401
(Input: RawByteString('');
402402
Output: ''),
403403
(Input: RawByteString(#$55#$7e#$94#$f3#$4b#$f2#$86#$e8#$71#$9a#$26#$be+
404404
#$94#$ac#$1e#$16#$d9#$5e#$f9#$f8#$19#$de#$e0);
405-
Output: 'TV4S6ytwfsfvkgY8jIucDrjc8deX1s.'));
406-
407-
cTestDataDecode : array[1..2] of TestRecRawByteString = (
405+
Output: 'TV4S6ytwfsfvkgY8jIucDrjc8deX1s.'),
406+
(Input: RawByteString(#$14+'K=i'+#$1A+'{N'+#$CF+'9'+#$CF+'s\'+#$7F#$A7+
407+
#$A7#$9C);
408+
Output: 'DCq7YPn5Rq63x1Lad4cll.'),
409+
(Input: RawByteString(#$26#$C6+'03'+#$C0+'O'+#$8B#$CB#$A2#$FE#$24#$B5+
410+
't'+#$DB+'bt');
411+
Output: 'HqWuK6/Ng6sg9gQzbLrgb.'),
412+
(Input: RawByteString(#$9B+'|'+#$9D+'*'+#$DA#$0F#$D0+'p'+
413+
#$91#$C9#$15#$D1+'Qw'+#$01#$D6);
414+
Output: 'k1wbIrmNyFAPwPVPSVa/ze'),
415+
(Input: RawByteString(#$9B#$AE#$1B#$1C#$91#$D8#$B0+':'+
416+
#$F9#$C5#$89#$E4#$02#$92#$A9#$FB);
417+
Output: 'k42ZFHFWqBp3vWli.nIn8u'),
418+
(Input: RawByteString(#$A3+'a-'+#$8C#$9A+'7'+
419+
#$DA#$C2#$F9#$9D#$94#$DA#$03#$BD+'E'+#$21);
420+
Output: 'm0CrhHm10qJ3lXRY.5zDGO'),
421+
(Input: RawByteString('z'+#$17#$B1+']'+#$FE#$1C+'K'+
422+
#$E1#$0E#$C6#$A3#$AB+'G'+#$81#$83#$86);
423+
Output: 'cfcvVd2aQ8CMvoMpP2EBfe'),
424+
(Input: RawByteString(#$9B#$EF+'M'+#$04#$E1#$F8#$F9+'/='+#$E5+'s'+
425+
#$23#$F8#$17#$91#$90);
426+
Output: 'k87L/MF28Q673VKh8/cPi.'),
427+
(Input: RawByteString(#$F8#$F2#$C9#$E4#$DB#$91#$B4#$23#$D4#$BD#$7F+
428+
#$19#$BC+'7'+#$26#$12);
429+
Output: '8NJH3LsPrANStV6XtBakCe'),
430+
(Input: RawByteString('*'+#$1F#$1D#$C7#$0A+'='+#$14+'yV'+#$A4+'o'+
431+
#$EB#$E3#$01+'`'+#$17);
432+
Output: 'If6bvum7DFjUnE9p2uDeDu'),
433+
(Input: RawByteString('N'+#$AD#$84+'Z'+#$14+','+#$9B#$C7#$99#$18#$C8+
434+
'y'+#$7F+'G'+#$0E#$F5);
435+
Output: 'Ro0CUfOqk6cXEKf3dyaM7O'),
436+
(Input: RawByteString('c'+#$1C+'UD'+#$93+'2|2'+#$F9#$C2+'m'+
437+
#$9B#$E7#$D1#$8E+'L');
438+
Output: 'WvvTPHKwdBJ3uk0Z37EMR.'),
439+
(Input: RawByteString(#$19#$94#$E6#$86+'g'+#$E8+'f'+
440+
#$9E#$22#$D5#$FB#$B8+'QI/'+#$C0);
441+
Output: 'EXRkfkdmXn2gzds2SSitu.'),
442+
(Input: RawByteString(#$02#$D1#$17+'mt'+#$15#$8E#$E2#$9C#$FF#$DA#$C6+
443+
#$15#$0C#$F1#$23);
444+
Output: '.rCVZVOThsIa97pEDOxvGu'),
445+
(Input: RawByteString('q['+#$96#$CA#$ED+'*'+#$C9+',5N'+#$D1+'l'+
446+
#$1E#$19#$E3#$8A);
447+
Output: 'aTsUwsyowQuzRrDqFflhge'),
448+
(Input: RawByteString(#$85+'r~'+#$83#$8F#$90+'I9'+#$7F#$BE#$C9#$05+'f'+
449+
#$ED#$E0#$DF);
450+
Output: 'fVH8e28OQRj9tqiDXs1e1u'),
451+
(Input: RawByteString(#$17#$A2+';'+#$87#$7F#$AA#$F5#$C3#$8E#$87#$27+
452+
'.'+#$0C#$DF+'H'+#$AF);
453+
Output: 'D4G5f18o7aMMfwasBL7Gpu'),
454+
(Input: RawByteString(#$85#$12#$AE#$0D#$0F#$AC+'N'+#$C9#$A5#$97#$8F+
455+
'y'+#$B6#$17#$10+'(');
456+
Output: 'fPIsBO8qRqkjj273rfaOI.'),
457+
(Input: RawByteString(#$1A#$CE+'-'+#$E8#$80+'}'+#$F1#$8C+'y'+#$FC#$ED+
458+
'Tg'+#$8F+'8'+#$8F);
459+
Output: 'Eq2r4G/76Wv39MzSX262hu'),
460+
(Input: RawByteString('6(Zbgu'+#$1B#$14#$BA+'-'+#$C9#$89#$F6#$D4+'1'+
461+
#$26);
462+
Output: 'LgfYWkbzEvQ4JakH7rOvHe'),
463+
(Input: RawByteString('`*'+#$F5#$A5+'d'+#$0B#$86+'a'+#$88+'R'+
464+
#$86#$93#$86#$99#$AD+'E');
465+
Output: 'WApznUOJfkEGSmYRfnkrPO'));
466+
467+
cTestDataDecode : array[1..22] of TestRecRawByteString = (
408468
(Input: '';
409469
Output: RawByteString('')),
410470
(Input: 'TV4S6ytwfsfvkgY8jIucDrjc8deX1s.';
411471
Output: RawByteString(#$55#$7e#$94#$f3#$4b#$f2#$86#$e8#$71#$9a#$26#$be+
412-
#$94#$ac#$1e#$16#$d9#$5e#$f9#$f8#$19#$de#$e0)));
472+
#$94#$ac#$1e#$16#$d9#$5e#$f9#$f8#$19#$de#$e0)),
473+
(Input: 'DCq7YPn5Rq63x1Lad4cll.';
474+
Output: RawByteString(#$14+'K=i'+#$1A+'{N'+#$CF+'9'+#$CF+'s\'+
475+
#$7F#$A7#$A7#$9C)),
476+
(Input: 'HqWuK6/Ng6sg9gQzbLrgb.';
477+
Output: RawByteString(#$26#$C6+'03'+#$C0+'O'+#$8B#$CB#$A2#$FE#$24#$B5+
478+
't'+#$DB+'bt')),
479+
(Input: 'k1wbIrmNyFAPwPVPSVa/ze';
480+
Output: RawByteString(#$9B+'|'+#$9D+'*'+#$DA#$0F#$D0+'p'+#$91#$C9#$15+
481+
#$D1+'Qw'+#$01#$D6)),
482+
(Input: 'k42ZFHFWqBp3vWli.nIn8u';
483+
Output: RawByteString(#$9B#$AE#$1B#$1C#$91#$D8#$B0+':'+#$F9#$C5#$89+
484+
#$E4#$02#$92#$A9#$FB)),
485+
(Input: 'm0CrhHm10qJ3lXRY.5zDGO';
486+
Output: RawByteString(#$A3+'a-'+#$8C#$9A+'7'+#$DA#$C2#$F9#$9D#$94#$DA+
487+
#$03#$BD+'E'+#$21)),
488+
(Input: 'cfcvVd2aQ8CMvoMpP2EBfe';
489+
Output: RawByteString('z'+#$17#$B1+']'+#$FE#$1C+'K'+#$E1#$0E#$C6#$A3+
490+
#$AB+'G'+#$81#$83#$86)),
491+
(Input: 'k87L/MF28Q673VKh8/cPi.';
492+
Output: RawByteString(#$9B#$EF+'M'+#$04#$E1#$F8#$F9+'/='+#$E5+'s'+
493+
#$23#$F8#$17#$91#$90)),
494+
(Input: '8NJH3LsPrANStV6XtBakCe';
495+
Output: RawByteString(#$F8#$F2#$C9#$E4#$DB#$91#$B4#$23#$D4#$BD#$7F#$19+
496+
#$BC+'7'+#$26#$12)),
497+
(Input: 'If6bvum7DFjUnE9p2uDeDu';
498+
Output: RawByteString('*'+#$1F#$1D#$C7#$0A+'='+#$14+'yV'+#$A4+'o'+
499+
#$EB#$E3#$01+'`'+#$17)),
500+
(Input: 'Ro0CUfOqk6cXEKf3dyaM7O';
501+
Output: RawByteString('N'+#$AD#$84+'Z'+#$14+','+#$9B#$C7#$99#$18#$C8+
502+
'y'+#$7F+'G'+#$0E#$F5)),
503+
(Input: 'WvvTPHKwdBJ3uk0Z37EMR.';
504+
Output: RawByteString('c'+#$1C+'UD'+#$93+'2|2'+#$F9#$C2+'m'+#$9B#$E7+
505+
#$D1#$8E+'L')),
506+
(Input: 'EXRkfkdmXn2gzds2SSitu.';
507+
Output: RawByteString(#$19#$94#$E6#$86+'g'+#$E8+'f'+#$9E#$22#$D5#$FB+
508+
#$B8+'QI/'+#$C0)),
509+
(Input: '.rCVZVOThsIa97pEDOxvGu';
510+
Output: RawByteString(#$02#$D1#$17+'mt'+#$15#$8E#$E2#$9C#$FF#$DA#$C6+
511+
#$15#$0C#$F1#$23)),
512+
(Input: 'aTsUwsyowQuzRrDqFflhge';
513+
Output: RawByteString('q['+#$96#$CA#$ED+'*'+#$C9+',5N'+#$D1+'l'+
514+
#$1E#$19#$E3#$8A)),
515+
(Input: 'fVH8e28OQRj9tqiDXs1e1u';
516+
Output: RawByteString(#$85+'r~'+#$83#$8F#$90+'I9'+#$7F#$BE#$C9#$05+
517+
'f'+#$ED#$E0#$DF)),
518+
(Input: 'D4G5f18o7aMMfwasBL7Gpu';
519+
Output: RawByteString(#$17#$A2+';'+#$87#$7F#$AA#$F5#$C3#$8E#$87#$27+
520+
'.'+#$0C#$DF+'H'+#$AF)),
521+
(Input: 'fPIsBO8qRqkjj273rfaOI.';
522+
Output: RawByteString(#$85#$12#$AE#$0D#$0F#$AC+'N'+#$C9#$A5#$97#$8F+
523+
'y'+#$B6#$17#$10+'(')),
524+
(Input: 'Eq2r4G/76Wv39MzSX262hu';
525+
Output: RawByteString(#$1A#$CE+'-'+#$E8#$80+'}'+#$F1#$8C+'y'+#$FC#$ED+
526+
'Tg'+#$8F+'8'+#$8F)),
527+
(Input: 'LgfYWkbzEvQ4JakH7rOvHe';
528+
Output: RawByteString('6(Zbgu'+#$1B#$14#$BA+'-'+#$C9#$89#$F6#$D4+
529+
'1'+#$26)),
530+
(Input: 'WApznUOJfkEGSmYRfnkrPO';
531+
Output: RawByteString('`*'+#$F5#$A5+'d'+#$0B#$86+'a'+#$88+'R'+
532+
#$86#$93#$86#$99#$AD+'E')));
413533
public
414534
procedure SetUp; override;
415535
procedure TearDown; override;

0 commit comments

Comments
 (0)