| 1 | ## our_shell: ysh
 | 
| 2 | 
 | 
| 3 | #### join()
 | 
| 4 | var x = :|a b 'c d'|
 | 
| 5 | 
 | 
| 6 | var y = join(x)
 | 
| 7 | argv.py $y
 | 
| 8 | 
 | 
| 9 | var z = join(x, ":")
 | 
| 10 | argv.py $z
 | 
| 11 | ## STDOUT:
 | 
| 12 | ['abc d']
 | 
| 13 | ['a:b:c d']
 | 
| 14 | ## END
 | 
| 15 | 
 | 
| 16 | #### abs
 | 
| 17 | 
 | 
| 18 | source $LIB_YSH/math.ysh
 | 
| 19 | 
 | 
| 20 | # Also test smooshing
 | 
| 21 | write $[abs(-5)]$[abs(-0)]$[abs(5)]
 | 
| 22 | write $[abs(-5)] $[abs(-0)] $[abs(5)]
 | 
| 23 | ## STDOUT:
 | 
| 24 | 505
 | 
| 25 | 5
 | 
| 26 | 0
 | 
| 27 | 5
 | 
| 28 | ## END
 | 
| 29 | 
 | 
| 30 | #### any() and all()
 | 
| 31 | source $LIB_YSH/list.ysh
 | 
| 32 | 
 | 
| 33 | var a1 = all( :|yes yes| )
 | 
| 34 | var a2 = all( :|yes ''| )
 | 
| 35 | var a3 = all( :|'' ''| )
 | 
| 36 | # This should be true and false or what?
 | 
| 37 | write $a1 $a2 $a3
 | 
| 38 | write __
 | 
| 39 | 
 | 
| 40 | var x1 = any( :|yes yes| )
 | 
| 41 | var x2 = any( :|yes ''| )
 | 
| 42 | var x3 = any( :|'' ''| )
 | 
| 43 | write $x1 $x2 $x3
 | 
| 44 | 
 | 
| 45 | ## STDOUT:
 | 
| 46 | true
 | 
| 47 | false
 | 
| 48 | false
 | 
| 49 | __
 | 
| 50 | true
 | 
| 51 | true
 | 
| 52 | false
 | 
| 53 | ## END
 | 
| 54 | 
 | 
| 55 | #### sum()
 | 
| 56 | source $LIB_YSH/list.ysh
 | 
| 57 | 
 | 
| 58 | var start = 42
 | 
| 59 | 
 | 
| 60 | write $[sum( 0 .. 3 )]
 | 
| 61 | write $[sum( 0 .. 3; start=42)]
 | 
| 62 | write $[sum( 0 .. 0, start=42)]
 | 
| 63 | 
 | 
| 64 | ## STDOUT:
 | 
| 65 | 3
 | 
| 66 | 45
 | 
| 67 | 42
 | 
| 68 | ## END
 | 
| 69 | 
 | 
| 70 | #### @[split(x)] respects IFS
 | 
| 71 | setvar IFS = ":"
 | 
| 72 | var x = "one:two:three"
 | 
| 73 | argv.py @[split(x)]
 | 
| 74 | ## STDOUT:
 | 
| 75 | ['one', 'two', 'three']
 | 
| 76 | ## END
 | 
| 77 | 
 | 
| 78 | #### @[maybe(x)]
 | 
| 79 | setvar empty = ''
 | 
| 80 | setvar x = 'X'
 | 
| 81 | argv.py a @[maybe(empty)] @[maybe(x)] b
 | 
| 82 | 
 | 
| 83 | setvar n = null
 | 
| 84 | argv.py a @[maybe(n)] b
 | 
| 85 | 
 | 
| 86 | ## STDOUT:
 | 
| 87 | ['a', 'X', 'b']
 | 
| 88 | ['a', 'b']
 | 
| 89 | ## END
 | 
| 90 | 
 | 
| 91 | #### maybe() on invalid type is fatal error
 | 
| 92 | 
 | 
| 93 | # not allowed
 | 
| 94 | setvar marray = :||
 | 
| 95 | argv.py a @[maybe(marray)] b
 | 
| 96 | echo done
 | 
| 97 | ## status: 3
 | 
| 98 | ## STDOUT:
 | 
| 99 | ## END
 | 
| 100 | 
 | 
| 101 | #### split() on invalid type is fatal error
 | 
| 102 | var myarray = :| --all --long |
 | 
| 103 | write -- @[myarray]
 | 
| 104 | write -- @[split(myarray)]
 | 
| 105 | ## status: 3
 | 
| 106 | ## STDOUT:
 | 
| 107 | --all
 | 
| 108 | --long
 | 
| 109 | ## END
 | 
| 110 | 
 | 
| 111 | #### @[glob(x)]
 | 
| 112 | 
 | 
| 113 | # empty glob
 | 
| 114 | write -- A @[glob('__nope__')] B
 | 
| 115 | echo ___
 | 
| 116 | 
 | 
| 117 | touch -- a.z b.z -.z
 | 
| 118 | write -- @[glob('?.z')]
 | 
| 119 | echo ___
 | 
| 120 | 
 | 
| 121 | # add it back
 | 
| 122 | shopt -s dashglob
 | 
| 123 | write -- @[glob('?.z')]
 | 
| 124 | 
 | 
| 125 | ## STDOUT:
 | 
| 126 | A
 | 
| 127 | B
 | 
| 128 | ___
 | 
| 129 | a.z
 | 
| 130 | b.z
 | 
| 131 | ___
 | 
| 132 | -.z
 | 
| 133 | a.z
 | 
| 134 | b.z
 | 
| 135 | ## END
 | 
| 136 | 
 | 
| 137 | #### smoke test for two.sh
 | 
| 138 | 
 | 
| 139 | source --builtin osh/two.sh
 | 
| 140 | 
 | 
| 141 | log 'hi'
 | 
| 142 | 
 | 
| 143 | set +o errexit
 | 
| 144 | ( die "bad" )
 | 
| 145 | echo status=$?
 | 
| 146 | 
 | 
| 147 | ## STDOUT:
 | 
| 148 | status=1
 | 
| 149 | ## END
 | 
| 150 | 
 | 
| 151 | #### smoke test for stream.ysh and table.ysh 
 | 
| 152 | 
 | 
| 153 | shopt --set redefine_proc_func   # byo-maybe-main
 | 
| 154 | 
 | 
| 155 | source $LIB_YSH/stream.ysh
 | 
| 156 | source $LIB_YSH/table.ysh
 | 
| 157 | 
 | 
| 158 | ## status: 0
 |