# *************************************************************************** test old functions ******************************************************************************************************************
# *************************************************************************** test old functions ******************************************************************************************************************
#
is(SLUB::LZA::SIPBuilderBagIt::check_xsl_directory(),$xsl_path->absolute,"check_xsl_directory(), return value if not exist");
is(SLUB::LZA::SIPBuilderBagIt::check_xsl_directory(),$xsl_path->absolute,"check_xsl_directory(), return value if not exist");
ok($xsl_path->is_dir,"check_xsl_directory(), created if not exist");
ok($xsl_path->is_dir,"check_xsl_directory(), created if not exist");
is(SLUB::LZA::SIPBuilderBagIt::check_xsl_directory(),$xsl_path->absolute,"check_xsl_directory(), return value if exist");
is(SLUB::LZA::SIPBuilderBagIt::check_xsl_directory(),$xsl_path->absolute,"check_xsl_directory(), return value if exist");
...
@@ -672,16 +684,16 @@ ok($xsl_path->is_dir, "check_xsl_directory(), untouched if exist");
...
@@ -672,16 +684,16 @@ ok($xsl_path->is_dir, "check_xsl_directory(), untouched if exist");
#
#
SKIP:{
SKIP:{
skip"No response from server https://sru.bsz-bw.de/swb",1unless!$response->is_error;
skip"No response from server https://sru.bsz-bw.de/swb",1unless!$response->is_error;
# *************************************************************************** test new functions ******************************************************************************************************************
File::Copy::Recursive::dircopy($ie_input_path,$data_output_path)ordie"Could not perform dircopy() of $ie_input_path to autogenerated $data_output_path: $!";
File::Copy::Recursive::dircopy($ie_input_path,$data_output_path)ordie"Could not perform dircopy() of $ie_input_path to autogenerated $data_output_path: $!";
throws_ok{SLUB::LZA::SIPBuilderBagIt::create_slub_bagit(undef,\@addBagInfo);}qr/bagPath is not defined/,"create_slub_bagit(\$bagPath, \$refAddBagInfo), bagPath undef";
throws_ok{SLUB::LZA::SIPBuilderBagIt::create_slub_bagit(undef,\@addBagInfo);}qr/bagPath is not defined/,"create_slub_bagit(\$bagPath, \$refAddBagInfo), bagPath undef";