1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
open Base64
let test t =
let d = decode (encode t) in
if d <> t then begin
Format.eprintf "Failed with %s - %s@." t d; assert false
end
let tests = [
"";
"a";
"ab";
"abc";
"abcd";
"908ujdas0";
"(*^HDS)Hl;ady&*(ASD|[]\\a";
"(*^HDS)Hl;ady&*(ASD|[]\\a'";
"(*^HDS)Hl;ady&*(ASD|[]\\a'}";
" dsahn fadslhnoiy90hjnIOG*)YHpn 17uOJASG87oT!@*&%#!ujb c";
"<L:<A:<adsD:Hp8y2hjp;/\tmsdag8y64830u89(*^T*&(OGdd97s^Ydsa";
"<L:<A:\n<adsD:Hp8y2hjp;/\tmsdag8y64830u89(*^T*&(OGdd97s^Ydsa";
"<L:<A:<a\123dsD:Hp8y2hjp;/\tmsda\ng8y648\x1030u89(*^T*&(OGdd97s^Ydsa"
]
let () =
List.iter test tests;
Format.printf "all tests passed with success!@."
|
