1*0Sstevel@tonic-gate#!./perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateBEGIN { 4*0Sstevel@tonic-gate chdir 't'; 5*0Sstevel@tonic-gate @INC = '../lib'; 6*0Sstevel@tonic-gate} 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gatemy $module = shift; 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gate# 'require open' confuses Perl, so we use instead. 11*0Sstevel@tonic-gateeval "use $module ();"; 12*0Sstevel@tonic-gateif( $@ ) { 13*0Sstevel@tonic-gate print "not "; 14*0Sstevel@tonic-gate $@ =~ s/\n/\n# /g; 15*0Sstevel@tonic-gate warn "# require failed with '$@'\n"; 16*0Sstevel@tonic-gate} 17*0Sstevel@tonic-gateprint "ok - $module\n"; 18*0Sstevel@tonic-gate 19*0Sstevel@tonic-gate 20