1*5759b3d2Safresh1#!perl -w 2*5759b3d2Safresh1# 3*5759b3d2Safresh1# check that .bs files are loaded and executed. 4*5759b3d2Safresh1# During build of XS::APItest, the presence of APItest_BS should 5*5759b3d2Safresh1# cause a non-empty APItest.bs file to auto-generated. When loading 6*5759b3d2Safresh1# APItest.so, the .bs should be automatically executed, which should 7*5759b3d2Safresh1# set $::bs_file_got_executed. 8*5759b3d2Safresh1 9*5759b3d2Safresh1use strict; 10*5759b3d2Safresh1 11*5759b3d2Safresh1use Test::More; 12*5759b3d2Safresh1use XS::APItest; 13*5759b3d2Safresh1 14*5759b3d2Safresh1is $::bs_file_got_executed, 1, "BS file was executed once"; 15*5759b3d2Safresh1 16*5759b3d2Safresh1done_testing(); 17*5759b3d2Safresh1 18