M2compiler-V3/compiler/tests/t_unicode.mod

MODULE TUnicode;
(* Unicode: UCHAR, U-literal decoding, UCHR/CHR8/UORD.  Exit 31. *)
VAR ExitCode : INTEGER;
VAR u : UCHAR;
VAR c : CHAR;
BEGIN
  u := U'é';                          (* U+00E9 = 233 *)
  c := "A";
  IF UORD(u) = 233 THEN ExitCode := ExitCode + 1 ELSE ExitCode := 100 END;
  IF UORD(U'😀') = 128512 THEN ExitCode := ExitCode + 2 ELSE ExitCode := 100 END;
  IF UORD(U'€') = 8364 THEN ExitCode := ExitCode + 4 ELSE ExitCode := 100 END;
  IF U'é' > UCHR(c) THEN ExitCode := ExitCode + 8 ELSE ExitCode := 100 END;
  IF CHR8(UCHR(c)) = c THEN ExitCode := ExitCode + 16 ELSE ExitCode := 100 END
END TUnicode.