# From PGPLOT-2.20 test suite

use PGPLOT;

pgqndt($ndrivers);

print "Testing pgqdt() - $ndrivers drivers found...\n";
for $n (1..$ndrivers) {
  pgqdt($n,$type,$tlen,$descr,$dlen,$inter);
  print "$n:  $type $tlen $descr $dlen $inter\n";
}