| |
|
1 |
ad_library { |
| |
|
2 |
Automated tests for the dotlrn-xowiki package. |
| |
|
3 |
|
| |
|
4 |
@author Héctor Romojaro <hector.romojaro@gmail.com> |
| |
|
5 |
@creation-date 2020-08-21 |
| |
|
6 |
@cvs-id $Id$ |
| |
|
7 |
} |
| |
|
8 |
|
| |
|
9 |
aa_register_case -procs { |
| |
|
10 |
"xowiki_applet proc applet_key" |
| |
|
11 |
"xowiki_applet proc my_package_key" |
| |
|
12 |
"xowiki_applet proc package_key" |
| |
|
13 |
"xowiki_applet proc node_name" |
| |
|
14 |
"xowiki_applet proc pretty_name" |
| |
|
15 |
} -cats { |
| |
|
16 |
api |
| |
|
17 |
production_safe |
| |
|
18 |
} dotlrn_xowiki_names_keys { |
| |
|
19 |
Test diverse *_key and *_name procs. |
| |
|
20 |
} { |
| |
|
21 |
aa_equals "Applet key" "[xowiki_applet applet_key]" "dotlrn_xowiki" |
| |
|
22 |
aa_equals "My package key" "[xowiki_applet my_package_key]" "dotlrn-xowiki" |
| |
|
23 |
aa_equals "Package key" "[xowiki_applet package_key]" "xowiki" |
| |
|
24 |
aa_equals "Node name" "[xowiki_applet node_name]" "xowiki" |
| |
|
25 |
aa_equals "Pretty name" "[xowiki_applet pretty_name]" "XoWiki" |
| |
|
26 |
} |
| |
|
27 |
|
| |
|
28 |
# Local variables: |
| |
|
29 |
# mode: tcl |
| |
|
30 |
# tcl-indent-level: 4 |
| |
|
31 |
# indent-tabs-mode: nil |
| |
|
32 |
# End: |
