FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
OneScript/tests/constructor.os at develop · sfaqer/OneScript · GitHub
sfaqer
/
OneScript
Public
forked from
EvilBeaver/OneScript
Notifications
You must be signed in to change notification settings
Fork
0
Star
0
Code
Pull requests
0
Actions
Projects
Security and quality
0
Insights
Additional navigation options
Code
Pull requests
Actions
Projects
Security and quality
Insights
Expand file tree
Breadcrumbs
OneScript
/
tests
/
constructor.os
Copy path
More file actions
More file actions
Latest commit
History
History
History
132 lines (85 loc) · 7.83 KB
Breadcrumbs
OneScript
/
tests
/
constructor.os
Copy path
File metadata and controls
132 lines (85 loc) · 7.83 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
#Использовать
asserts
Функция
ПолучитьСписокТестов
(
ЮнитТестирование
)
Экспорт
ВсеТесты
=
Новый
Массив
;
ВсеТесты.Добавить(
"ТестДолжен_СообщитьОбОшибкеНетКонструктора"
)
;
ВсеТесты.Добавить(
"ТестДолжен_СообщитьОбОшибкеСлишкомМногоПараметров"
)
;
ВсеТесты.Добавить(
"ТестДолжен_СообщитьОбОшибкеСлишкомМалоПараметров"
)
;
ВсеТесты.Добавить(
"ТестДолжен_СоздатьОбъект"
)
;
ВсеТесты.Добавить(
"ТестДолжен_ПроверитьПолучениеПроизвольногоПредставления"
)
;
ВсеТесты.Добавить(
"ТестДолжен_ПроверитьПолучениеСтандартногоПредставления"
)
;
ВсеТесты.Добавить(
"ТестДолжен_ПроверитьПолучениеЗначенияПоУмолчанию"
)
;
ВсеТесты.Добавить(
"ТестДолжен_ПроверитьКорректностьПроверкиУказанияФактическихПараметров"
)
;
ВсеТесты.Добавить(
"ТестДолжен_ПроверитьПропускНеобязательныхПараметров"
)
;
Возврат
ВсеТесты
;
КонецФункции
Процедура
ТестДолжен_СообщитьОбОшибкеНетКонструктора
()
Экспорт
Попытка
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"no-magic-object.os"
)
,
"ПроверкаБезКонструктора"
)
;
НовыйОбъект
=
Новый
ПроверкаБезКонструктора(
1
)
;
Исключение
Ожидаем.Что(
ОписаниеОшибки
()).Содержит(
"Конструктор не определен"
)
;
КонецПопытки
;
КонецПроцедуры
Процедура
ТестДолжен_СообщитьОбОшибкеСлишкомМногоПараметров
()
Экспорт
Попытка
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
,
3
,
4
,
5
)
;
Исключение
Ожидаем.Что(
ОписаниеОшибки
()).Содержит(
"необходимых параметров: 3, передано параметров 5"
)
;
КонецПопытки
;
КонецПроцедуры
Процедура
ТестДолжен_СообщитьОбОшибкеСлишкомМалоПараметров
()
Экспорт
Попытка
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
)
;
Исключение
Ожидаем.Что(
ОписаниеОшибки
()).Содержит(
"необходимых параметров: 3, передано параметров 2"
)
;
КонецПопытки
;
КонецПроцедуры
Процедура
ТестДолжен_СоздатьОбъект
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
,
3
)
;
КонецПроцедуры
Процедура
ТестДолжен_ПроверитьПолучениеСтандартногоПредставления
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
,
3
)
;
Ожидаем.Что(
Строка
(НовыйОбъект)).Равно(
"Проверка"
)
;
КонецПроцедуры
Процедура
ТестДолжен_ПроверитьПолучениеПроизвольногоПредставления
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
,
3
)
;
НовыйОбъект.ПроизвольноеПредставление
=
"Я специальный объект"
;
Ожидаем.Что(
Строка
(НовыйОбъект)).Равно(
"Я специальный объект"
)
;
КонецПроцедуры
Процедура
ТестДолжен_ПроверитьПолучениеЗначенияПоУмолчанию
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"magic-object.os"
)
,
"Проверка"
)
;
НовыйОбъект
=
Новый
Проверка(
1
,
2
,
3
)
;
Ожидаем.Что(НовыйОбъект.ЗначПоУмолчанию).Равно(
4
)
;
КонецПроцедуры
Процедура
ТестДолжен_ПроверитьКорректностьПроверкиУказанияФактическихПараметров
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"obj-constructor-with-req-prms-after-opt.os"
)
,
"ПроверкаКонструктора"
)
;
НовыйОбъект
=
Новый
ПроверкаКонструктора(
22
,
23
)
;
Ожидаем.Что(НовыйОбъект.П
1
,
"Параметр 1 заполнился верно"
).Равно(
22
)
;
Ожидаем.Что(НовыйОбъект.П
2
,
"Параметр 2 заполнился верно"
).Равно(
23
)
;
Попытка
НовыйОбъект
=
Новый
ПроверкаКонструктора(
22
)
;
Ожидаем.Что(
Ложь
,
"Объект не должен быть создан"
).ЭтоИстина()
;
Исключение
Ожидаем.Что(
ОписаниеОшибки
()).Содержит(
"Недостаточно фактических параметров"
)
;
КонецПопытки
;
КонецПроцедуры
Процедура
ТестДолжен_ПроверитьПропускНеобязательныхПараметров
()
Экспорт
ТекПуть
=
Новый
Файл(ТекущийСценарий().Источник).Путь
;
ПодключитьСценарий(ОбъединитьПути(ТекПуть
,
"testdata"
,
"obj-constructor-with-req-prms-after-opt.os"
)
,
"ПроверкаКонструктора"
)
;
НовыйОбъект
=
Новый
ПроверкаКонструктора(
,
23
)
;
Ожидаем.Что(НовыйОбъект.П
1
,
"Параметр 1 заполнился верно"
).Равно(
"1"
)
;
Ожидаем.Что(НовыйОбъект.П
2
,
"Параметр 2 заполнился верно"
).Равно(
23
)
;
КонецПроцедуры
Back
|
FazBrowse Home
|
New Git URL