summaryrefslogtreecommitdiff
path: root/modules/string/tests/unit_tests/strrev.tst
blob: 50b373c833927a851296e5e86993d05c066aa5c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================

// <-- CLI SHELL MODE -->

//==============================================================================

str       = "Madam,in Eden I''m Adam ";
str_clean = strsubst(str,' ','');
str_clean = strsubst(str_clean,',','');
str_clean = strsubst(str_clean,'''','');
str_clean = convstr(str_clean,'l');
r         = strrev(str_clean);
if r<>str_clean then pause,end

//==============================================================================

str                = "la mere gide digere mal";
str_without_blanks = strsubst(str,' ','');
r                  = strrev(str_without_blanks);
if r<>str_without_blanks then pause,end

//==============================================================================

str       = "a man, a plan, a canal : panama";
str_clean = strsubst(str,' ','');
str_clean = strsubst(str_clean,',','');
str_clean = strsubst(str_clean,':','');
r         = strrev(str_clean);
if r<>str_clean then pause,end

//==============================================================================

s = strrev('');
if s <> '' then pause,end

//==============================================================================

str1          = "Madam,in Eden I''m Adam";
str2          = "la mere gide digere mal";
str3          = "a man, a plan, a canal : panama";

str1_rev      = "madA m''I nedE ni,madaM";
str2_rev      = "lam eregid edig erem al";
str3_rev      = "amanap : lanac a ,nalp a ,nam a";


if strrev(str1) <> str1_rev then pause,end
if strrev(str2) <> str2_rev then pause,end
if strrev(str3) <> str3_rev then pause,end

if strrev(str1_rev) <> str1 then pause,end
if strrev(str2_rev) <> str2 then pause,end
if strrev(str3_rev) <> str3 then pause,end

//=================

str_test      = [ str1     str2     str3     ];
str_test_rev  = [ str1_rev str2_rev str3_rev ];

if strrev(str_test) <>  str_test_rev                               then pause,end
if strrev(str_test) <> [ str1_rev      str2_rev     str3_rev     ] then pause,end
if strrev(str_test) <> [ strrev(str1)  strrev(str2) strrev(str3) ] then pause,end

//=================

str_test      = [ str1     ; str2     ; str3     ];
str_test_rev  = [ str1_rev ; str2_rev ; str3_rev ];

if strrev(str_test) <>  str_test_rev                                  then pause,end
if strrev(str_test) <> [ str1_rev     ; str2_rev     ; str3_rev     ] then pause,end
if strrev(str_test) <> [ strrev(str1) ; strrev(str2) ; strrev(str3) ] then pause,end

//=================

str_test      = [ str1     str2     ; str3     str1     ];
str_test_rev  = [ str1_rev str2_rev ; str3_rev str1_rev ];

if strrev(str_test) <>  str_test_rev                                             then pause,end
if strrev(str_test) <> [ str1_rev     str2_rev     ; str3_rev     str1_rev     ] then pause,end
if strrev(str_test) <> [ strrev(str1) strrev(str2) ; strrev(str3) strrev(str1) ] then pause,end