/trunk/Examples/test-suite/octave/li_cstring_runme.m

 1li_cstring
 2
 3
 4if (count("ab\0ab\0ab\0", 0) != 3)
 5    error    
 6endif
 7
 8if (!strcmp(test1(),"Hello World"))
 9    error
10endif
11
12if (!strcmp(test2()," !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"))
13    error
14endif
15
16if (!strcmp(test3("hello"),"hello-suffix"))
17    error(test3("hello"))
18endif
19
20if (!strcmp(test4("hello"),"hello-suffix"))
21    error(test4("hello"))
22endif
23    
24if (!strcmp(test5(4),'xxxx'))
25    error
26endif
27
28if (!strcmp(test6(10),'xxxxx'))
29    error
30endif
31    
32if (!strcmp(test7(),"Hello world!"))
33    error
34endif
35
36if (!strcmp(test8()," !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"))
37    error
38endif
39