2
0
Эх сурвалжийг харах

pastojs: char(#10), widechar(#$e000)

git-svn-id: trunk@39857 -
Mattias Gaertner 6 жил өмнө
parent
commit
ada940e80d

+ 4 - 0
packages/pastojs/tests/tcmodules.pas

@@ -2391,6 +2391,8 @@ begin
   '  c:=char(c);',
   '  c:=char(c);',
   '  c:=char(i);',
   '  c:=char(i);',
   '  c:=char(65);',
   '  c:=char(65);',
+  '  c:=char(#10);',
+  '  c:=char(#$E000);',
   '']);
   '']);
   ConvertProgram;
   ConvertProgram;
   CheckSource('TestAliasTypeRef',
   CheckSource('TestAliasTypeRef',
@@ -2413,6 +2415,8 @@ begin
     '$mod.c = $mod.c;',
     '$mod.c = $mod.c;',
     '$mod.c = String.fromCharCode($mod.i);',
     '$mod.c = String.fromCharCode($mod.i);',
     '$mod.c = "A";',
     '$mod.c = "A";',
+    '$mod.c = "\n";',
+    '$mod.c = "";',
     '']));
     '']));
 end;
 end;