1# Copyright (C) 2010 The Android Open Source Project
2#
3# Licensed under the Apache License, Version 2.0 (the "License");
4# you may not use this file except in compliance with the License.
5# You may obtain a copy of the License at
6#
7#      http://www.apache.org/licenses/LICENSE-2.0
8#
9# Unless required by applicable law or agreed to in writing, software
10# distributed under the License is distributed on an "AS IS" BASIS,
11# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12# See the License for the specific language governing permissions and
13# limitations under the License.
14#
15
16# This script is used to check that a given awk executable
17# implements the match() and substr() functions appropriately.
18#
19# These were introduced in nawk/gawk, but the original awk
20# does not have them.
21#
22BEGIN {
23    RSTART=0
24    RLENGTH=0
25    s1="A real world example"
26    if (! match(s1,"world")) {
27        print "Fail match"
28    } else if (RSTART != 8) {
29        print "Fail RSTART ="RSTART
30    } else if (RLENGTH != 5) {
31        print "Fail RLENGTH ="RLENGTH
32    } else {
33        s2=substr(s1,RSTART,RLENGTH)
34        if (s2 != "world") {
35            print "Fail substr="s2
36        } else {
37            print "Pass"
38        }
39    }
40}
41