112
112
if not string "${a}" "juMBlEd lETteRS" {
113
113
test_fail "modified assignment failed (1): ${a}";
116
116
set :length "b" "${a}"; # => "15"
117
117
if not string "${b}" "15" {
118
118
test_fail "modified assignment failed (2): ${a}";
121
121
set :lower "b" "${a}"; # => "jumbled letters"
122
122
if not string "${b}" "jumbled letters" {
123
123
test_fail "modified assignment failed (3): ${a}";
126
126
set :upperfirst "b" "${a}"; # => "JuMBlEd lETteRS"
127
127
if not string "${b}" "JuMBlEd lETteRS" {
128
128
test_fail "modified assignment failed (4): ${a}";
131
131
set :upperfirst :lower "b" "${a}"; # => "Jumbled letters"
132
132
if not string "${b}" "Jumbled letters" {
133
133
test_fail "modified assignment failed (5): ${a}";
136
136
set :quotewildcard "b" "Rock*"; # => "Rock\*"
137
137
if not string "${b}" "Rock\\*" {
138
138
test_fail "modified assignment failed (6): ${a}";