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
133
|
#<already-handled-by-runtest.sh>
prepend_to_slang_load_path ("..");
set_import_module_path ("../${ARCH}objs:"$ + get_import_module_path ());
#</already-handled-by-runtest.sh>
define testing_module (m)
{
() = fprintf (stdout, "Testing %s module...", m);
() = fflush (stdout);
}
private variable tests_failed = 0;
define failed ()
{
variable s = __pop_args (_NARGS);
s = sprintf (__push_args(s));
() = fprintf (stderr, "Failed: %s\n", s);
tests_failed++;
throw RunTimeError;
}
define end_test ()
{
ifnot (tests_failed)
{
() = fprintf(stdout, "OK\n");
() = fflush (stdout);
}
exit (tests_failed);
}
define expect_type (var, expected_type)
{
if (typeof (var) != expected_type)
failed ("expected type %S, but was %S", expected_type, typeof (var));
}
define expect_value (var, expected_value)
{
if (var != expected_value)
failed ("expected value `%S', but was `%S'", expected_value, var);
}
define expect_size (var, expected_size)
{
if (typeof (var) == Assoc_Type)
var = assoc_get_keys (var);
if (typeof (var) == Struct_Type)
var = get_struct_field_names (var);
variable len = length (var);
if (len != expected_size)
failed ("expected size %d, but was %d", expected_size, len);
}
define expect_assoc_key (assoc, key)
{
expect_type (assoc, Assoc_Type);
ifnot (assoc_key_exists (assoc, key))
failed (`expected assoc key "$key"`$);
}
define expect_assoc_key_value (assoc, key, expected_value)
{
expect_type (assoc, Assoc_Type);
ifnot (assoc_key_exists (assoc, key))
failed (`expected assoc key "$key"`$);
else
expect_value (assoc[key], expected_value);
}
define expect_struct_key (s, key)
{
ifnot (is_struct_type (s))
failed ("expected struct, but was %S", typeof (s));
ifnot (any (get_struct_field_names(s) == key))
failed (`expected struct key "$key"`$);
}
define expect_struct_field_names (s, expected_field_names)
{
ifnot (is_struct_type (s))
failed ("expected struct, but was %S", typeof (s));
variable struct_field_names = get_struct_field_names (s);
if (any (struct_field_names != expected_field_names))
failed ("expected struct field names [%s], but got [%s]",
strjoin (expected_field_names, ", "),
strjoin (struct_field_names, ", "));
}
define expect_struct_key_value (s, key, expected_value)
{
ifnot (any (get_struct_field_names(s) == key))
failed (`expected struct key "$key"`$);
else
expect_value (get_struct_field (s, key), expected_value);
}
private define descr (error)
{
try
throw error;
catch error:
return __get_exception_info().descr;
}
define expect_error();
define expect_error(%expected_error, expected_message, function, [args...]
)
{
variable args = __pop_list (_NARGS-3);
variable function = ();
variable expected_message = ();
variable expected_error = ();
if (typeof (function) == Array_Type)
return array_map (&expect_error, expected_error, expected_message, function, __push_list (args));
variable expected_error_descr = sprintf ("`%s'", descr (expected_error));
variable e;
try (e)
{
@function(__push_list (args));
failed ("expected %S to throw %s, but did not occur", function, expected_error_descr);
}
catch expected_error:
ifnot (string_match (e.message, expected_message))
failed (`expected %S to throw %s with message matching "%s", but got "%s"`, function, expected_error_descr, expected_message, e.message);
catch AnyError:
failed (`expected %S to throw %s, but got %s "%s"`, function, expected_error_descr, e.descr, e.message);
}
|
