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
|
-module(ct_telnet_faulty_regexp_SUITE).
-compile(export_all).
-include_lib("common_test/include/ct.hrl").
-define(name, telnet_server_conn1).
%%--------------------------------------------------------------------
%% TEST SERVER CALLBACK FUNCTIONS
%%--------------------------------------------------------------------
init_per_suite(Config) ->
Config.
end_per_suite(_Config) ->
ok.
suite() -> [{require,?name,{unix,[telnet]}},
{require,ct_conn_log},
{ct_hooks, [{cth_conn_log,[]}]}].
all() ->
[expect_pattern,
expect_pattern_no_string,
expect_tag_pattern,
expect_tag_pattern_no_string,
expect_pattern_unicode,
expect_tag_pattern_unicode].
groups() ->
[].
init_per_group(_GroupName, Config) ->
Config.
end_per_group(_GroupName, Config) ->
Config.
init_per_testcase(_,Config) ->
ct:log("init_per_testcase: opening telnet connection...",[]),
{ok,_} = ct_telnet:open(?name),
ct:log("...done",[]),
Config.
end_per_testcase(_,_Config) ->
ct:log("end_per_testcase: closing telnet connection...",[]),
_ = ct_telnet:close(?name),
ct:log("...done",[]),
ok.
expect_pattern(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
ok = ct_telnet:expect(?name, "invalid(pattern").
expect_pattern_no_string(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
ok = ct_telnet:expect(?name, invalid_pattern).
expect_tag_pattern(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
ok = ct_telnet:expect(?name, {tag,"invalid(pattern"}).
expect_tag_pattern_no_string(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
ok = ct_telnet:expect(?name, {tag,invalid_pattern}).
%% Test that a unicode pattern can be given without the testcase
%% failing. Do however notice that there is no real unicode support
%% in ct_telnet yet, that is, the telnet binary mode is not supported.
expect_pattern_unicode(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
{error,{prompt,_}} = ct_telnet:expect(?name, "pattern_with_unicode_αβ"),
ok.
expect_tag_pattern_unicode(_) ->
ok = ct_telnet:send(?name, "echo ayt"),
{error,{prompt,_}} = ct_telnet:expect(?name, "pattern_with_unicode_αβ"),
ok.
|