Home | History | Annotate | Download | only in awk 
      1 # This script is used to check that a given awk executable
      2 # implements the match() and substr() functions appropriately.
      3 #
      4 # These were introduced in nawk/gawk, but the original awk
      5 # does not have them.
      6 #
      7 BEGIN {
      8     RSTART=0
      9     RLENGTH=0
     10     s1="A real world example"
     11     if (! match(s1,"world")) {
     12         print "Fail match"
     13     } else if (RSTART != 8) {
     14         print "Fail RSTART ="RSTART
     15     } else if (RLENGTH != 5) {
     16         print "Fail RLENGTH ="RLENGTH
     17     } else {
     18         s2=substr(s1,RSTART,RLENGTH)
     19         if (s2 != "world") {
     20             print "Fail substr="s2
     21         } else {
     22             print "Pass"
     23         }
     24     }
     25 }
     26