| /* | |
| * Testcase Name : matches04.aql | |
| * Description : Positive tests | |
| * Success : Yes (tests to check for patterns using regular expressions) | |
| * Date : 20th April 2012 | |
| */ | |
| write output to nc1:"rttest/string_matches04.adm"; | |
| for $a in [matches("UCI UCI UCI UCI UCI UCI","[UCI{6}]"), | |
| matches("UCI UCI UCI UCI UCI UCI","[UCI{3,6}]"), | |
| matches("UCI UCI UCI UCI UCI UCI","[UCI{7}]"), | |
| matches("UCI UCI UCI UCI UCI UCI","[UCI{1}]"), | |
| matches("UCI UCI UCI","[UCI+]"), | |
| matches("false","[true|false]"), | |
| matches("YX","[XY]")] | |
| return $a |