| 1 | # Test var / setvar / etc.
|
| 2 |
|
| 3 | ## our_shell: ysh
|
| 4 | ## oils_failures_allowed: 2
|
| 5 |
|
| 6 | #### proc static check: const can't be mutated
|
| 7 | proc f {
|
| 8 | const x = 'local'
|
| 9 | echo x=$x
|
| 10 | setvar x = 'mutated'
|
| 11 | echo x=$x
|
| 12 | }
|
| 13 | ## status: 2
|
| 14 | ## STDOUT:
|
| 15 | ## END
|
| 16 |
|
| 17 | #### top-level dynamic check: const can't be be mutated
|
| 18 | shopt -s ysh:all
|
| 19 |
|
| 20 | const x = 'foo'
|
| 21 | echo x=$x
|
| 22 | const x = 'bar'
|
| 23 | echo x=$x
|
| 24 | ## status: 1
|
| 25 | ## STDOUT:
|
| 26 | x=foo
|
| 27 | ## END
|
| 28 |
|
| 29 | #### top level: var can be redefined by var/const
|
| 30 | var x = "global"
|
| 31 | echo x=$x
|
| 32 | f() {
|
| 33 | var x = "local"
|
| 34 | echo x=$x
|
| 35 | }
|
| 36 | f
|
| 37 | var x = "g2"
|
| 38 | echo x=$x
|
| 39 | const x = 'now-const'
|
| 40 | echo x=$x
|
| 41 | const x = 'oops'
|
| 42 | echo x=$x
|
| 43 | ## status: 1
|
| 44 | ## STDOUT:
|
| 45 | x=global
|
| 46 | x=local
|
| 47 | x=g2
|
| 48 | x=now-const
|
| 49 | ## END
|
| 50 |
|
| 51 | #### setvar mutates local
|
| 52 | proc f {
|
| 53 | var x = 'local'
|
| 54 | echo x=$x
|
| 55 | setvar x = 'mutated'
|
| 56 | echo x=$x
|
| 57 | }
|
| 58 |
|
| 59 | var x = 'global'
|
| 60 | echo x=$x
|
| 61 | f
|
| 62 | echo x=$x
|
| 63 | ## STDOUT:
|
| 64 | x=global
|
| 65 | x=local
|
| 66 | x=mutated
|
| 67 | x=global
|
| 68 | ## END
|
| 69 |
|
| 70 | #### top level: setvar creates global
|
| 71 | setvar x = 'global'
|
| 72 | echo x=$x
|
| 73 | setvar x = 'g2'
|
| 74 | echo x=$x
|
| 75 | ## STDOUT:
|
| 76 | x=global
|
| 77 | x=g2
|
| 78 | ## END
|
| 79 |
|
| 80 | #### top level: setvar mutates var
|
| 81 | var x = 1
|
| 82 | setvar x = 42 # this is allowed
|
| 83 | echo $x
|
| 84 | setvar y = 50 # error because it's not declared
|
| 85 | echo $y
|
| 86 | ## STDOUT:
|
| 87 | 42
|
| 88 | 50
|
| 89 | ## END
|
| 90 |
|
| 91 | #### proc static check: variable changed by setvar must be declared
|
| 92 | shopt -s ysh:all
|
| 93 |
|
| 94 | var x = 1
|
| 95 | f() {
|
| 96 | # setting global is OK
|
| 97 | setglobal x = 'XX'
|
| 98 | echo x=$x
|
| 99 |
|
| 100 | # local NOT DECLARED
|
| 101 | setvar x = 'YY'
|
| 102 | echo y=$y
|
| 103 | }
|
| 104 | ## status: 2
|
| 105 | ## STDOUT:
|
| 106 | ## END
|
| 107 |
|
| 108 | #### setglobal
|
| 109 | f() {
|
| 110 | var x = 'local'
|
| 111 | echo x=$x
|
| 112 | setglobal x = 'mutated'
|
| 113 | }
|
| 114 | var x = 'global'
|
| 115 | echo x=$x
|
| 116 | f
|
| 117 | echo x=$x
|
| 118 | ## STDOUT:
|
| 119 | x=global
|
| 120 | x=local
|
| 121 | x=mutated
|
| 122 | ## END
|
| 123 |
|
| 124 | #### setglobal of undeclared var is allowed
|
| 125 | var x = 'XX'
|
| 126 | echo x=$x
|
| 127 | setglobal x = 'xx'
|
| 128 | echo x=$x
|
| 129 |
|
| 130 | # fatal error
|
| 131 | setglobal y = 'YY'
|
| 132 |
|
| 133 | ## STDOUT:
|
| 134 | x=XX
|
| 135 | x=xx
|
| 136 | ## END
|
| 137 |
|
| 138 | #### var a, b does implicit null init
|
| 139 |
|
| 140 | var x
|
| 141 | var a, b
|
| 142 |
|
| 143 | var c: Int, d: Int
|
| 144 |
|
| 145 | echo $x $a $b $c $d
|
| 146 |
|
| 147 | ## STDOUT:
|
| 148 | null null null null null
|
| 149 | ## END
|
| 150 |
|
| 151 | #### var x, y = f()
|
| 152 |
|
| 153 | # The syntax consistent with JavaScript would be
|
| 154 | # var x = 1, y = 2;
|
| 155 |
|
| 156 | var x, y = 1, 2
|
| 157 | echo "x=$x y=$y"
|
| 158 |
|
| 159 | func f() {
|
| 160 | # this syntax would be nice, but is illegal
|
| 161 | # return (3, 4)
|
| 162 | return ([3, 4])
|
| 163 | }
|
| 164 |
|
| 165 | var a, b = f()
|
| 166 | echo "a=$a b=$b"
|
| 167 |
|
| 168 |
|
| 169 | ## STDOUT:
|
| 170 | x=1 y=2
|
| 171 | a=3 b=4
|
| 172 | ## END
|
| 173 |
|
| 174 | #### const x, y = f()
|
| 175 |
|
| 176 | func f() {
|
| 177 | # this syntax would be nice, but is illegal
|
| 178 | # return (3, 4)
|
| 179 | return ([3, 4])
|
| 180 | }
|
| 181 |
|
| 182 |
|
| 183 | const a, b = f()
|
| 184 | echo "a=$a b=$b"
|
| 185 |
|
| 186 | setvar a = 9 # error
|
| 187 |
|
| 188 | ## status: 1
|
| 189 | ## STDOUT:
|
| 190 | a=3 b=4
|
| 191 | ## END
|
| 192 |
|
| 193 |
|
| 194 | #### setvar x, y = 1, 2
|
| 195 |
|
| 196 | # Python doesn't allow you to have annotation on each variable!
|
| 197 | # https://www.python.org/dev/peps/pep-0526/#where-annotations-aren-t-allowed
|
| 198 | var x Int = 3
|
| 199 | var y Int = 4
|
| 200 | echo "x=$x y=$y"
|
| 201 |
|
| 202 | setvar x, y = 1, 9
|
| 203 | echo "x=$x y=$y"
|
| 204 |
|
| 205 | setvar y, x = x, y
|
| 206 | echo "x=$x y=$y"
|
| 207 |
|
| 208 | setvar x, y = x*2, x*3
|
| 209 | echo "x=$x y=$y"
|
| 210 |
|
| 211 | ## STDOUT:
|
| 212 | x=3 y=4
|
| 213 | x=1 y=9
|
| 214 | x=9 y=1
|
| 215 | x=18 y=27
|
| 216 | ## END
|
| 217 |
|
| 218 | #### setvar to swap List and Dict elements
|
| 219 | var x = [1, 2, 3]
|
| 220 | echo @x
|
| 221 |
|
| 222 | setvar x[0], x[1] = x[1], x[0]
|
| 223 |
|
| 224 | echo @x
|
| 225 |
|
| 226 | var d = {int: 42}
|
| 227 |
|
| 228 | setvar x[0], d.int = d.int, x[0]
|
| 229 |
|
| 230 | echo @x
|
| 231 | json write (d)
|
| 232 |
|
| 233 | ## STDOUT:
|
| 234 | 1 2 3
|
| 235 | 2 1 3
|
| 236 | 42 1 3
|
| 237 | {
|
| 238 | "int": 2
|
| 239 | }
|
| 240 | ## END
|
| 241 |
|
| 242 | #### setvar d.key = 42
|
| 243 | shopt -s ysh:all
|
| 244 |
|
| 245 | var d = {}
|
| 246 | setvar d['f2'] = 42
|
| 247 | setvar d.f3 = 43
|
| 248 |
|
| 249 | # Use the opposite thing to retrieve
|
| 250 | var f3 = d['f3']
|
| 251 | var f2 = d.f2
|
| 252 | echo f3=$f3
|
| 253 | echo f2=$f2
|
| 254 | ## STDOUT:
|
| 255 | f3=43
|
| 256 | f2=42
|
| 257 | ## END
|
| 258 |
|
| 259 | #### setvar mylist[1] = 42
|
| 260 | shopt -s ysh:all
|
| 261 | var mylist = [1,2,3]
|
| 262 | setvar mylist[1] = 42
|
| 263 |
|
| 264 | write --sep ' ' @mylist
|
| 265 | ## STDOUT:
|
| 266 | 1 42 3
|
| 267 | ## END
|
| 268 |
|
| 269 | #### setvar mylist[99] out of range
|
| 270 | shopt -s ysh:all
|
| 271 | var mylist = [4,5,6]
|
| 272 | try {
|
| 273 | setvar mylist[99] = 42
|
| 274 | }
|
| 275 | echo $[_error.code]
|
| 276 |
|
| 277 | try {
|
| 278 | setvar mylist[-99] = 42
|
| 279 | }
|
| 280 | echo $[_error.code]
|
| 281 |
|
| 282 | write --sep ' ' @mylist
|
| 283 |
|
| 284 | ## STDOUT:
|
| 285 | 3
|
| 286 | 3
|
| 287 | 4 5 6
|
| 288 | ## END
|
| 289 |
|
| 290 | #### mixing assignment builtins and YSH assignment
|
| 291 | shopt --set ysh:all parse_equals
|
| 292 | shopt --unset no_osh_builtins
|
| 293 |
|
| 294 | proc local-var {
|
| 295 | local x=1
|
| 296 | var x = 2
|
| 297 | echo x=$x
|
| 298 | }
|
| 299 |
|
| 300 | proc readonly-var {
|
| 301 | readonly x=1
|
| 302 | var x = 2
|
| 303 | echo x=$x
|
| 304 | }
|
| 305 |
|
| 306 | try { eval 'local-var' }
|
| 307 | echo status=$_status
|
| 308 | try { eval 'readonly-var' }
|
| 309 | echo status=$_status
|
| 310 |
|
| 311 | ## STDOUT:
|
| 312 | x=2
|
| 313 | status=0
|
| 314 | status=1
|
| 315 | ## END
|
| 316 |
|
| 317 | #### circular dict - TODO 2023-06 REGRESS
|
| 318 | var d = {name: 'foo'}
|
| 319 | pp test_ (d)
|
| 320 |
|
| 321 | setvar d['name'] = 123
|
| 322 | pp test_ (d)
|
| 323 |
|
| 324 | setvar d['name'] = 'mystr'
|
| 325 | pp test_ (d)
|
| 326 |
|
| 327 | setvar d['name'] = d
|
| 328 | pp test_ (d)
|
| 329 |
|
| 330 | # This used to print ...
|
| 331 |
|
| 332 | ## STDOUT:
|
| 333 | (OrderedDict) <'name': 'foo'>
|
| 334 | (OrderedDict) <'name': 123>
|
| 335 | (OrderedDict) <'name': 'mystr'>
|
| 336 | (OrderedDict) <'name': ...>
|
| 337 | ## END
|
| 338 |
|
| 339 | #### circular list - TODO 2023-06 REGRESS
|
| 340 | var L = [1,2,3]
|
| 341 | = L
|
| 342 | #setvar L[0] = L
|
| 343 | #= L
|
| 344 | ## STDOUT:
|
| 345 | (List) [1, 2, 3]
|
| 346 | (List) [[...], 2, 3]
|
| 347 | ## END
|
| 348 |
|
| 349 |
|
| 350 | #### exit code of var, const, setvar with command sub
|
| 351 |
|
| 352 | # NOTE: This feels PROBLEMATIC without command_sub_errexit feels like it should
|
| 353 | # be the last one ...
|
| 354 |
|
| 355 | run() {
|
| 356 | $[ENV.REPO_ROOT]/bin/osh -O parse_proc -c "$@"
|
| 357 |
|
| 358 | # Identical
|
| 359 | # $[ENV.SH] +O ysh:all -O parse_proc -c "$@"
|
| 360 | }
|
| 361 |
|
| 362 | shopt --unset errexit
|
| 363 |
|
| 364 | run '
|
| 365 | var x = $(false)
|
| 366 | echo inside1=$?
|
| 367 | '
|
| 368 | echo outside1=$?
|
| 369 |
|
| 370 | run '
|
| 371 | setvar x = $(false)
|
| 372 | echo inside2=$?
|
| 373 | '
|
| 374 | echo outside2=$?
|
| 375 |
|
| 376 | # Argument list
|
| 377 | run '
|
| 378 | call split( $(false) )
|
| 379 | echo inside3=$?
|
| 380 | '
|
| 381 | echo outside3=$?
|
| 382 |
|
| 383 | # Place expression
|
| 384 | run '
|
| 385 | var d = {}
|
| 386 | setvar d[ $(false) ] = 42
|
| 387 | echo inside4=$?
|
| 388 | '
|
| 389 | echo outside4=$?
|
| 390 |
|
| 391 | ## STDOUT:
|
| 392 | outside1=1
|
| 393 | outside2=1
|
| 394 | outside3=1
|
| 395 | outside4=1
|
| 396 | ## END
|
| 397 |
|
| 398 | #### setvar obj[INVALID TYPE] =
|
| 399 |
|
| 400 | shopt --unset errexit
|
| 401 |
|
| 402 | $[ENV.SH] -c '
|
| 403 | var d = {}
|
| 404 | setvar d["key"] = 5
|
| 405 | echo "d.key = $[d.key]"
|
| 406 | setvar d[42] = 6
|
| 407 | echo "should not get here"
|
| 408 | '
|
| 409 | echo outside1=$?
|
| 410 |
|
| 411 | $[ENV.SH] -c '
|
| 412 | var L = [42]
|
| 413 | setvar L[0] = 43
|
| 414 | echo "L[0] = $[L[0]]"
|
| 415 | setvar L["key"] = 44
|
| 416 | '
|
| 417 | echo outside2=$?
|
| 418 |
|
| 419 | ## STDOUT:
|
| 420 | d.key = 5
|
| 421 | outside1=3
|
| 422 | L[0] = 43
|
| 423 | outside2=3
|
| 424 | ## END
|