one-true-awk/testdir/T.split

18 echo T.split: misc tests of field splitting and split command
35 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 0.1'
45 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 0.2'
62 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 0.3'
73 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 0.4'
87 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 0.5'
96 diff $TEMP1 $TEMP2 || fail 'BAD: T.split (record assignment 1)'
108 diff $TEMP1 $TEMP2 || fail 'BAD: T.split (record assignment 2)'
119 {	n = split($0, x, "")
129 diff $TEMP0 $TEMP1 || fail 'BAD: T.split 1'
135 {	n = split($0, x, //)
145 diff $TEMP0 $TEMP1 || fail 'BAD: T.split //'
149 {	n = split($0, x)	# will be split with FS
159 diff $TEMP0 $TEMP2 || fail 'BAD: T.split 2'
175 diff $TEMP0 $TEMP2 || fail 'BAD: T.split 3'
179 { n = split( $0, temp, /^@@@ +/ )
189 diff $TEMP1 $TEMP2 || fail 'BAD: T.split 4'
198 { print split($0, x, "")
204 diff $TEMP1 $TEMP2 || fail 'BAD: T.split null 3rd arg'
209   print split(a[1],a),a[1],a[2]
213 diff $TEMP1 $TEMP2 || fail 'BAD: T.split(a[1],a)'
217   split(a, b, "[\r\n]+")
221 diff $TEMP1 $TEMP2 || fail 'BAD: T.split(a, b, "[\r\n]+")'