test_agvs.awk

Use next line to test agvs.awk

logs=`awk -v filelog="%P_%T-_%s_%n.log" -f stampf.awk`;\

echo $logs >$logs ;\

awk -f agvs.awk -f test_agvs.awk >>$logs

# -*- version-control: t; -*-

# Time-stamp: <CJ2K: [test_agvs.awk] 2016-08-12 12:26:34 edt>

# AWK global variables space testing.

############################################################

BEGIN{

strm="|FILENAME|FNR|NR|NF|$0"

sep="|SUBSEP|FS|OFS"

srand()

tmp1=agvs(Z,Z,sep)

tmp2=agvs(Z,Z,strm)

print "\n\tTest agvs\n",

"\nAGVS size is: "length(AGVS),

"\nAGVS: have "AGVS["AGVS"]" spaces"

for(i=1; i<= AGVS["AGVS"]; i++)

print i ":\t>" AGVS[i] "<"

print "\n\t"tmp1

for(i in AGVS)

if(i ~ tmp1)print i ":\t>" AGVS[i] "<"

print "\n\t"tmp2

for(i in AGVS)

if(i ~ tmp2)print i ":\t>" AGVS[i] "<"

print "\ndeleting '"AGVS[2]"':", agvs(AGVS[2])

print "AGVS size is: "length(AGVS),

"\nAGVS: have "AGVS["AGVS"]" spaces"

print "\ndeleting '"tmp1"':", agvs(tmp1)

print "AGVS size is: "length(AGVS),

"\nAGVS: have "AGVS["AGVS"]" spaces"

}