1*5759b3d2Safresh1BEGIN { 2*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 3*5759b3d2Safresh1 chdir 't'; 4*5759b3d2Safresh1 @INC = '../lib'; 5*5759b3d2Safresh1 } 6*5759b3d2Safresh1} 7*5759b3d2Safresh1 8*5759b3d2Safresh1use strict; 9*5759b3d2Safresh1 10*5759b3d2Safresh1BEGIN { $| = 1; $^W = 1; } 11*5759b3d2Safresh1 12*5759b3d2Safresh1use Test::Simple tests => 3; 13*5759b3d2Safresh1 14*5759b3d2Safresh1ok(1, 'compile'); 15*5759b3d2Safresh1 16*5759b3d2Safresh1ok(1); 17*5759b3d2Safresh1ok(1, 'foo'); 18