#!perl -T use Test::More qw(no_plan) ; use OpenSRF::System; use OpenILS::Application; use OpenSRF::Application; use OpenSRF::Utils::SettingsClient; use OpenILS::Utils::Cronscript # bootstrapping my $session = OpenILS::Utils::Cronscript->new()->session('open-ils.acq'); #my $config = 'SYSCONFDIR/opensrf_core.xml'; #my $config = shift || die "bootstrap config required\n"; #OpenSRF::System->bootstrap_client( config_file => $config ); # Subroutines within the module my @subs = (ils_version, get_idl_file, register_method, authoritative_wrapper); # # Test to see if we can see the subroutines # use_ok ( 'OpenILS::Application' , @subs); # # Testing subroutine: ils_version() # is( OpenILS::Application::ils_version(), '2-1-1', "Testing version"); # Testing subroutine: get_idl_file() # # Testing subroutine: register_method() # #my $idl = OpenILS::Application::get_idl_file(); #$my = OpenSRF::Utils::SettingsClient->new->config_value('IDL'); #$my = OpenILS::Application::get_idl_file(); #isa( OpenILS::Application::get_idl_file(), $my, "testing"); #isa( OpenILS::Application::get_idl_file(), OpenSRF::Utils::SettingsClient->new->config_value('IDL'), "Testing subroutine: get