diff options
Diffstat (limited to 'testsuite/awk.tests')
-rwxr-xr-x | testsuite/awk.tests | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/testsuite/awk.tests b/testsuite/awk.tests index a7a533ba0..b5008290f 100755 --- a/testsuite/awk.tests +++ b/testsuite/awk.tests | |||
@@ -85,7 +85,8 @@ testing "awk floating const with leading zeroes" \ | |||
85 | "" "\n" | 85 | "" "\n" |
86 | 86 | ||
87 | # long field seps requiring regex | 87 | # long field seps requiring regex |
88 | testing "awk long field sep" "awk -F-- '{ print NF, length(\$NF), \$NF }'" \ | 88 | testing "awk long field sep" \ |
89 | "awk -F-- '{ print NF, length(\$NF), \$NF }'" \ | ||
89 | "2 0 \n3 0 \n4 0 \n5 0 \n" \ | 90 | "2 0 \n3 0 \n4 0 \n5 0 \n" \ |
90 | "" \ | 91 | "" \ |
91 | "a--\na--b--\na--b--c--\na--b--c--d--" | 92 | "a--\na--b--\na--b--c--\na--b--c--d--" |
@@ -317,6 +318,26 @@ testing "awk length()" \ | |||
317 | "3\n3\n3\n3\n" \ | 318 | "3\n3\n3\n3\n" \ |
318 | "" "qwe" | 319 | "" "qwe" |
319 | 320 | ||
321 | testing "awk print length, 1" \ | ||
322 | "awk '{ print length, 1 }'" \ | ||
323 | "0 1\n" \ | ||
324 | "" "\n" | ||
325 | |||
326 | testing "awk print length 1" \ | ||
327 | "awk '{ print length 1 }'" \ | ||
328 | "01\n" \ | ||
329 | "" "\n" | ||
330 | |||
331 | testing "awk length == 0" \ | ||
332 | "awk 'length == 0 { print \"foo\" }'" \ | ||
333 | "foo\n" \ | ||
334 | "" "\n" | ||
335 | |||
336 | testing "awk if (length == 0)" \ | ||
337 | "awk '{ if (length == 0) { print \"bar\" } }'" \ | ||
338 | "bar\n" \ | ||
339 | "" "\n" | ||
340 | |||
320 | testing "awk -f and ARGC" \ | 341 | testing "awk -f and ARGC" \ |
321 | "awk -f - input" \ | 342 | "awk -f - input" \ |
322 | "re\n2\n" \ | 343 | "re\n2\n" \ |