GEMini Atari/GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso/files/gnu/gawk213b/t.re

Text File | 1993-07-29 | 1.6 KB | 189 lines

echo T.re: tests of regular expression code
AWK=${AWK-./gawk}

$AWK '
BEGIN {
    FS = "\t"
    awk = "'$AWK'"
}
NF == 0 {
    next
}
$1 != "" {    # new test
    re = $1
}
$2 != "" {    # either ~ or !~
    op = $2
    if (op == "~")
        neg = "!"
    else if (op == "!~")
        neg = ""
}
$3 != "" {    # new test string
    str = $3
}
$3 == "\"\"" {    # explicit empty line
    $3 = ""
}
NF > 2 {    # generate a test
    input = $3
    test = sprintf("echo '"'"'%s'"'"' | %s '"'"'%s/%s/ {print \"%d fails %s %s %s\"}'"'"'",
        input, awk, neg, re, NR, re, op, input)
    printf(" %3d   %s %s %s:\n", NR, re, op, input)
    # print "test is |" test "|"
    system(test)
}
' <<\!!!
a    ~    a
        ba
        bab
    !~    ""
        x
        xxxxx
.    ~    x
        xxx
    !~    ""
.a    ~    xa
        xxa
        xax
    !~    a
        ax
        ""
$    ~    x
        ""
.$    ~    x
        xx
    !~    ""
a$    ~    a
        ba
        bbba
    !~    ab
        x
        ""
^    ~    x
        ""
        ^
^a$    ~    a
    !~    xa
        ax
        xax
        ""
^a.$    ~    ax
        aa
    !~    xa
        aaa
        axy
        ""
^$    ~    ""
    !~    x
        ^
^.a    ~    xa
        xaa
    !~    a
        ""
^.*a    ~    a
        xa
        xxxxxxa
    !~    ""
^.+a    ~    xa
        xxxxxxa
    !~    ""
        a
        ax
a*    ~    ""
        a
        aaaa
        xa
        xxxx
aa*    ~    a
        aaa
        xa
    !~    xxxx
        ""
\$    ~    x$
        $
        $x
        x$x
    !~    ""
        x
\.    ~    .
    !~    x
        ""
xr+y    ~    xry
        xrry
        xrrrrrry
    !~    ry
        xy
        xr
xr?y    ~    xy
        xry
    !~    xrry
a?b?c?    ~    ""
        x
^a?b?x    ~    x
        ax
        bx
        abx
        xa
    !~    ""
        ab
        aba
[0-9]    ~    1
        567
        x0y
    !~    abc
        ""
[^0-9]    !~    1
        567
        ""
    ~    abc
        x0y
x[0-9]+y    ~    x0y
        x23y
        x12345y
    !~    0y
        xy
x[0-9]?y    ~    xy
        x1y
    !~    x23y
x[[]y    ~    x[y
    !~    xy
        x[[]y
        x]y
x[^[]y    ~    xay
    !~    x[y
x[-]y    ~    x-y
    !~    xy
        x+y
x[^-]y    ~    x+y
    !~    x-y
        xy
[0\-9]    ~    0
        -
        9
    !~    1
        ""
[-1]    ~    -
        1
    !~    0
[0-]    ~    0
        -
    !~    1
[^-0]    ~    x
        ^
    !~    -
        0
        ""
[^0-]    ~    x
        ^
    !~    -
        0
        ""
x|y    ~    x
        y
        xy
    !~    a
        ""
^x\|y$    ~    x|y
    !~    xy