Mirrors/miller
1
0
Fork 0
mirror of https://github.com/johnkerl/miller.git synced 2026-07-25 00:48:56 +00:00
Code Issues Projects Releases Wiki Activity

sub/gsub UTs

Browse source
This commit is contained in:
John Kerl 2015-10-15 09:59:15 -04:00
parent 6a81e72170
commit abe92a1b87
1 changed files with 38 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

46
c/reg_test/expected/out
View file

@ -4141,28 +4141,49 @@ sec hms resec diff
================================================================
SUB/GSUB
mlr --opprint put $y = sub($x, "e.*l", "y123y") ./reg_test/input/sub.dat
mlr --opprint put $y = sub($x, "e.*l", "y123y") ./reg_test/input/sub.dat
x y
hello hy123yo
HELLO HELLO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "e.*l"i, "y123y") ./reg_test/input/sub.dat
mlr --opprint put $y = sub($x, "e.*l"i, "y123y") ./reg_test/input/sub.dat
x y
hello hy123yo
HELLO Hy123yO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "e.*"."l", "y123y") ./reg_test/input/sub.dat
mlr --opprint put $y = sub($x, "e.*"."l", "y123y") ./reg_test/input/sub.dat
x y
hello hy123yo
HELLO HELLO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "a", "aa") ./reg_test/input/gsub.dat
mlr --opprint put $y = sub($x, "([hg])e.*l(.)", "y\1y123\2y") ./reg_test/input/sub.dat
x y
hello yhy123oy
HELLO HELLO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "([hg])e.*l.", "y\1y123\2y") ./reg_test/input/sub.dat
x y
hello yhy123\2y
HELLO HELLO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "([hg])e.*l(.)", "y\1y123.y") ./reg_test/input/sub.dat
x y
hello yhy123.y
HELLO HELLO
world world
WORLD WORLD
mlr --opprint put $y = sub($x, "a", "aa") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg aabcdefg
@ -4171,7 +4192,7 @@ LMNOP LMNOP
ABCDEFG ABCDEFG
ABABBABBBA ABABBABBBA
mlr --opprint put $y = gsub($x, "a", "aa") ./reg_test/input/gsub.dat
mlr --opprint put $y = gsub($x, "a", "aa") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg aabcdefg
@ -4180,7 +4201,7 @@ LMNOP LMNOP
ABCDEFG ABCDEFG
ABABBABBBA ABABBABBBA
mlr --opprint put $y = gsub($x, "A", "Aa") ./reg_test/input/gsub.dat
mlr --opprint put $y = gsub($x, "A", "Aa") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg abcdefg
@ -4189,7 +4210,7 @@ LMNOP LMNOP
ABCDEFG AaBCDEFG
ABABBABBBA AaBAaBBAaBBBAa
mlr --opprint put $y = gsub($x, "a"i, "Aa") ./reg_test/input/gsub.dat
mlr --opprint put $y = gsub($x, "a"i, "Aa") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg Aabcdefg
@ -4198,7 +4219,7 @@ LMNOP LMNOP
ABCDEFG AaBCDEFG
ABABBABBBA AaBAaBBAaBBBAa
mlr --opprint put $y = gsub($x, "A"i, "Aa") ./reg_test/input/gsub.dat
mlr --opprint put $y = gsub($x, "A"i, "Aa") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg Aabcdefg
@ -4207,6 +4228,15 @@ LMNOP LMNOP
ABCDEFG AaBCDEFG
ABABBABBBA AaBAaBBAaBBBAa
mlr --opprint put $y = gsub($x, "a(.)", "aa\1\1\1") ./reg_test/input/gsub.dat
x y
lmnop lmnop
abcdefg aabbbcdefg
ababbabbba aabbbaabbbbaabbbbba
LMNOP LMNOP
ABCDEFG ABCDEFG
ABABBABBBA ABABBABBBA
================================================================
CHAINING