| |
1 |
1 |
ad_library { |
| |
2 |
2 |
Automated tests. |
| |
3 |
3 |
|
| |
4 |
4 |
@author Joel Aufrecht |
| |
5 |
5 |
@creation-date 2 Nov 2003 |
| |
6 |
6 |
@cvs-id $Id$ |
| |
7 |
7 |
} |
| |
8 |
8 |
|
| |
9 |
|
aa_register_case acs_messaging_trivial_smoke_test { |
| |
10 |
|
Minimal smoke test. |
| |
|
9 |
aa_register_case acs_messaging_format_as_html { |
| |
|
10 |
Test acs_messaging_format_as_html proc. |
| |
11 |
11 |
} { |
| |
12 |
12 |
|
| |
13 |
13 |
aa_run_with_teardown \ |
| |
14 |
14 |
-rollback \ |
| |
15 |
15 |
-test_code { |
| |
16 |
16 |
# initialize random values |
| |
17 |
17 |
set name [ad_generate_random_string] |
| |
18 |
18 |
|
| |
19 |
19 |
set formatted_name [acs_messaging_format_as_html text/html $name] |
| |
20 |
|
|
| |
21 |
20 |
aa_true "Name is formatted" ![string match "<pre>$name<pre>" $formatted_name] |
| |
|
21 |
} |
| |
|
22 |
} |
| |
22 |
23 |
|
| |
|
24 |
aa_register_case acs_messaging_message_p { |
| |
|
25 |
Test message_p proc. |
| |
|
26 |
} { |
| |
|
27 |
|
| |
|
28 |
aa_run_with_teardown \ |
| |
|
29 |
-rollback \ |
| |
|
30 |
-test_code { |
| |
|
31 |
|
| |
|
32 |
set message_p [acs_message_p "0"] |
| |
|
33 |
aa_true "Integer is not a message_id" !$message_p |
| |
|
34 |
|
| |
23 |
35 |
} |
| |
24 |
36 |
} |
