-
Notifications
You must be signed in to change notification settings - Fork 119
Expand file tree
/
Copy pathtest-XSMaxLengthFacet.os
More file actions
76 lines (46 loc) · 3.31 KB
/
Copy pathtest-XSMaxLengthFacet.os
File metadata and controls
76 lines (46 loc) · 3.31 KB
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Перем ЮнитТест;
#Область ОбработчикиСобытийМодуля
Функция ПолучитьСписокТестов(МенеджерТестирования) Экспорт
ЮнитТест = МенеджерТестирования;
СписокТестов = Новый Массив;
СписокТестов.Добавить("ТестКонструктор");
СписокТестов.Добавить("TestConstructor");
СписокТестов.Добавить("ТестЗначение");
СписокТестов.Добавить("ТестЛексическоеЗначение");
СписокТестов.Добавить("ТестОпределениеПростогоТипа");
Возврат СписокТестов;
КонецФункции
#КонецОбласти
#Область ОбработчикиТестирования
Процедура ТестКонструктор() Экспорт
Фасет = Новый ФасетМаксимальнойДлиныXS;
ЮнитТест.ПроверитьРавенство(ТипЗнч(Фасет), Тип("ФасетМаксимальнойДлиныXS"));
ЮнитТест.ПроверитьРавенство(Фасет.ТипКомпоненты, ТипКомпонентыXS.ФасетМаксимальнойДлины);
КонецПроцедуры
Процедура TestConstructor() Экспорт
Facet = New XSMaxLengthFacet;
ЮнитТест.ПроверитьРавенство(ТипЗнч(Facet), Тип("XSMaxLengthFacet"));
ЮнитТест.ПроверитьРавенство(Facet.ComponentType, XSComponentType.MaxLengthFacet);
КонецПроцедуры
Процедура ТестЗначение() Экспорт
Фасет = Новый ФасетМаксимальнойДлиныXS;
Фасет.Значение = 5;
ЮнитТест.ПроверитьРавенство(Фасет.Значение, 5);
ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "5");
КонецПроцедуры
Процедура ТестЛексическоеЗначение() Экспорт
Фасет = Новый ФасетМаксимальнойДлиныXS;
Фасет.ЛексическоеЗначение = "5";
ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "5");
ЮнитТест.ПроверитьРавенство(Фасет.Значение, 5);
КонецПроцедуры
Процедура ТестОпределениеПростогоТипа() Экспорт
Фасет = Новый ФасетМаксимальнойДлиныXS;
Фасет.ЛексическоеЗначение = "5";
ОпределениеТипа = Новый ОпределениеПростогоТипаXS;
ОпределениеТипа.Вариант = ВариантПростогоТипаXS.Атомарная;
ОпределениеТипа.Фасеты.Добавить(Фасет);
ЮнитТест.ПроверитьРавенство(Фасет.Контейнер, ОпределениеТипа);
ЮнитТест.ПроверитьРавенство(Фасет.ОпределениеПростогоТипа, ОпределениеТипа);
КонецПроцедуры
#КонецОбласти