DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Слегка перепилена реализация модуля Files
[dsw-obn.git]
/
tests
/
Test20.obn
1
MODULE
Test20
;
2
3
IMPORT
Out
;
4
5
VAR
6
ch
:
CHAR
;
7
8
BEGIN
9
ch
:=
"A"
;
10
Out
.
String
(
"A"
);
11
Out
.
Char
(
"A"
);
12
Out
.
Ln
;
13
ASSERT
(
"A"
=
041
X
);
14
ASSERT
(
041
X
=
"A"
);
15
ASSERT
(
ORD
(
"A"
) =
041
H
);
16
ASSERT
(
041
H
=
ORD
(
"A"
));
17
ASSERT
(
"A"
=
"A"
);
18
END
Test20
.
19
20
Тест конверсии строки единичного размера в символ
.