| /* | |
| * Testcase Name : startwith02.aql | |
| * Description : Positive tests | |
| * Success : Yes | |
| * Date : 19th April 2012 | |
| */ | |
| write output to nc1:"rttest/string_startwith02.adm"; | |
| for $a in [start-with("Hello","H"), | |
| start-with("Hello",lowercase("He")), | |
| start-with("Hello",""), | |
| start-with("Hello"," "), | |
| start-with("Hello",null), | |
| start-with("abcdef",lowercase("ABCDEf")), | |
| start-with("abcdef","abcdef"), | |
| start-with("abcdef","abc "), | |
| start-with("abc\tdef","abc\t"), | |
| start-with(" abcdef","abc"), | |
| start-with("0x1FF","0"), | |
| start-with("<ID>","<"), | |
| start-with("aBCDEFghI",codepoint-to-string([0041])), | |
| start-with("AbCDEFghI",codepoint-to-string([0041]))] | |
| return $a | |