DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Слегка перепилена реализация модуля Files
[dsw-obn.git]
/
tests
/
Test13.obn
1
MODULE
Test13
;
2
3
VAR
4
ch
,
cap
,
res
:
CHAR
;
5
6
BEGIN
7
ch
:=
"a"
;
8
cap
:=
"A"
;
9
res
:=
CAP
(
ch
);
10
ASSERT
(
res
=
cap
);
11
END
Test13
.
12
13
Проверка функции
CAP