Lines Matching refs:progname
89 $progname = 'abs2rel';
92 chop($result = `./$progname $d[0] $d[1]`);
97 print LOG "$progname $d[0] $d[1] -> $result (It should be '$d[2]')\n";
103 chop($result = `./$progname $d[0] $d[1]`);
108 print LOG "$progname $d[0] $d[1] -> $result (It should be '$d[2]')\n";
112 $progname = 'rel2abs';
115 chop($result = `./$progname $d[0] $d[1]`);
120 print LOG "$progname $d[0] $d[1] -> $result (It should be '$d[2]')\n";
126 chop($result = `./$progname $d[2] $d[1]`);
131 print LOG "$progname $d[2] $d[1] -> $result (It should be '$d[0]')\n";