Lines Matching refs:api

183 my @api;
188 foreach my $api ($out3, $out4) {
189     @api = $api =~ /PERL_API_(\w+)=(.*?)(?:;\n|\s)/mg;
190     is($api[0], "REVISION", "REVISION tag");
191     is($api[4], "VERSION",  "VERSION tag");
192     is($api[2], "SUBVERSION", "SUBVERSION tag");
193     is($api[1], "'$rev[0]'", "REVISION is $rev[0]");
194     is($api[5], "'$rev[1]'", "VERSION is $rev[1]");
195     is($api[3], "'$rev[2]'", "SUBVERSION is $rev[2]");
199 foreach my $api ($out5, $out6) {
200     @api = split /(?: |;\n)/, $api;
201     is($api[0], "'$rev[0]'", "revision is $rev[0]");
202     is($api[2], "'$rev[1]'", "version is $rev[1]");
203     is($api[1], "'$rev[2]'", "subversion is $rev[2]");