Skip to content
Snippets Groups Projects
Commit c4cdbff8 authored by Jens Steidl's avatar Jens Steidl :baby_chick:
Browse files

- updated test cases for MARCXML

parent 41e68982
No related branches found
No related tags found
No related merge requests found
...@@ -222,30 +222,30 @@ is(-d $output_dir, 1, "createDir(\$path) path is directory"); ...@@ -222,30 +222,30 @@ is(-d $output_dir, 1, "createDir(\$path) path is directory");
is(-e $output_dir, 1, "createDir(\$path) directory exists in path $output_dir"); is(-e $output_dir, 1, "createDir(\$path) directory exists in path $output_dir");
# #
my $output_metaPath = $output_path->child("dir")->child("meta"); my $output_metaPath = $output_path->child("dir")->child("meta");
my $output_modsFilePath = $output_metaPath->child("mods.xml"); # auto generated in copyFilesToMeta() my $output_marc21FilePath = $output_metaPath->child("marc21.xml"); # auto generated in copyFilesToMeta()
my $output_rightsFilePath = $output_metaPath->child("rights.xml"); my $output_rightsFilePath = $output_metaPath->child("rights.xml");
my $output_lidoFilePath = $output_metaPath->child("lido.xml"); my $output_lidoFilePath = $output_metaPath->child("lido.xml");
my $output_bubbleFilePath = $output_metaPath->child("bubble.xml"); my $output_bubbleFilePath = $output_metaPath->child("bubble.xml");
my $output_sameModsFilePath = $output_metaPath->child("1.xml"); my $output_sameMarc21FilePath = $output_metaPath->child("1.xml");
my $output_sameRightsFilePath = $output_metaPath->child("2.xml"); my $output_sameRightsFilePath = $output_metaPath->child("2.xml");
my $input_metaPath = path(__FILE__)->parent->parent->child('export_dir_kitodo')->child('bagit')->child("meta"); my $input_metaPath = path(__FILE__)->parent->parent->child('export_dir_kitodo')->child('bagit')->child("meta");
my $input_modsFilePath = $input_metaPath->child("mods.xml"); my $input_marc21FilePath = $input_metaPath->child("marc21.xml");
my $input_rightsFilePath = $input_metaPath->child("rights.xml"); my $input_rightsFilePath = $input_metaPath->child("rights.xml");
my $input_lidoFilePath = $input_metaPath->child("lido.xml"); my $input_lidoFilePath = $input_metaPath->child("lido.xml");
my $input_bubbleFilePath = $input_metaPath->child("bubble.xml"); my $input_bubbleFilePath = $input_metaPath->child("bubble.xml");
my @input_addMetaFile = ($input_lidoFilePath, $input_bubbleFilePath, $input_modsFilePath, $input_rightsFilePath); my @input_addMetaFile = ($input_lidoFilePath, $input_bubbleFilePath, $input_marc21FilePath, $input_rightsFilePath);
SLUB::LZA::SIPBuilderBagIt::createDir($output_metaPath); SLUB::LZA::SIPBuilderBagIt::createDir($output_metaPath);
SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $output_metaPath, $input_rightsFilePath, \@input_addMetaFile, $mods); SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $output_metaPath, $input_rightsFilePath, \@input_addMetaFile, $marc21);
is(-f $output_modsFilePath, 1, "copyFilesToMeta() file $output_modsFilePath exists."); is(-f $output_marc21FilePath, 1, "copyFilesToMeta() file $output_marc21FilePath exists.");
is(-f $output_rightsFilePath, 1, "copyFilesToMeta() file $output_rightsFilePath exists."); is(-f $output_rightsFilePath, 1, "copyFilesToMeta() file $output_rightsFilePath exists.");
is(-f $output_lidoFilePath, 1, "copyFilesToMeta() file $output_lidoFilePath exists."); is(-f $output_lidoFilePath, 1, "copyFilesToMeta() file $output_lidoFilePath exists.");
is(-f $output_bubbleFilePath, 1, "copyFilesToMeta() file $output_bubbleFilePath exists."); is(-f $output_bubbleFilePath, 1, "copyFilesToMeta() file $output_bubbleFilePath exists.");
is(-f $output_sameModsFilePath, 1, "copyFilesToMeta() file $output_sameModsFilePath exists. Renamed self included mods.xml"); is(-f $output_sameMarc21FilePath, 1, "copyFilesToMeta() file $output_sameMarc21FilePath exists. Renamed self included marc21.xml");
is(-f $output_sameRightsFilePath, 1, "copyFilesToMeta() file $output_sameRightsFilePath exists. Renamed self included rights.xml"); is(-f $output_sameRightsFilePath, 1, "copyFilesToMeta() file $output_sameRightsFilePath exists. Renamed self included rights.xml");
is(equalFilesByIgnoringCRLF_LF($output_rightsFilePath, $input_rightsFilePath), 1, "copyFilesToMeta() file $input_rightsFilePath is identical to $output_rightsFilePath"); is(equalFilesByIgnoringCRLF_LF($output_rightsFilePath, $input_rightsFilePath), 1, "copyFilesToMeta() file $input_rightsFilePath is identical to $output_rightsFilePath");
is(equalFilesByIgnoringCRLF_LF($output_lidoFilePath, $input_lidoFilePath), 1, "copyFilesToMeta() file $input_lidoFilePath is identical to $output_lidoFilePath"); is(equalFilesByIgnoringCRLF_LF($output_lidoFilePath, $input_lidoFilePath), 1, "copyFilesToMeta() file $input_lidoFilePath is identical to $output_lidoFilePath");
is(equalFilesByIgnoringCRLF_LF($output_bubbleFilePath, $input_bubbleFilePath), 1, "copyFilesToMeta() file $input_bubbleFilePath is identical to $output_bubbleFilePath"); is(equalFilesByIgnoringCRLF_LF($output_bubbleFilePath, $input_bubbleFilePath), 1, "copyFilesToMeta() file $input_bubbleFilePath is identical to $output_bubbleFilePath");
is(equalFilesByIgnoringCRLF_LF($output_sameModsFilePath, $input_modsFilePath), 1, "copyFilesToMeta() file $input_modsFilePath is identical to $output_sameModsFilePath"); is(equalFilesByIgnoringCRLF_LF($output_sameMarc21FilePath, $input_marc21FilePath), 1, "copyFilesToMeta() file $input_marc21FilePath is identical to $output_sameMarc21FilePath");
is(equalFilesByIgnoringCRLF_LF($output_sameRightsFilePath, $input_rightsFilePath), 1, "copyFilesToMeta() file $input_rightsFilePath is identical to $output_sameRightsFilePath"); is(equalFilesByIgnoringCRLF_LF($output_sameRightsFilePath, $input_rightsFilePath), 1, "copyFilesToMeta() file $input_rightsFilePath is identical to $output_sameRightsFilePath");
# #
my $xsdName = "rights1.xsd"; my $xsdName = "rights1.xsd";
...@@ -269,7 +269,7 @@ is(SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rights . "/Fallbeispiel- ...@@ -269,7 +269,7 @@ is(SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rights . "/Fallbeispiel-
is(SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rightsFilePath, $xsdName), 1, "validateRightsXML() meta/rights.xml according to $xsdName"); is(SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rightsFilePath, $xsdName), 1, "validateRightsXML() meta/rights.xml according to $xsdName");
throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML(undef, $xsdName); } qr/rightsFilePath not defined/, "validateRightsXML(\$rightsFilePath, \$xsdName), metaPath undef"; throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML(undef, $xsdName); } qr/rightsFilePath not defined/, "validateRightsXML(\$rightsFilePath, \$xsdName), metaPath undef";
throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rightsFilePath, undef); } qr/xsd name not defined/, "validateRightsXML(\$rightsFilePath, \$xsdName), xsdName undef"; throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_rightsFilePath, undef); } qr/xsd name not defined/, "validateRightsXML(\$rightsFilePath, \$xsdName), xsdName undef";
throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_metaPath . "/mods.xml", $xsdName); } qr/failed validation/, "validateRightsXML(\$rightsFilePath, \$xsdName), rights.xml is not valid according to $xsdName"; throws_ok{ SLUB::LZA::SIPBuilderBagIt::validateRightsXML($input_metaPath . "/marc21.xml", $xsdName); } qr/failed validation/, "validateRightsXML(\$rightsFilePath, \$xsdName), rights.xml is not valid according to $xsdName";
# #
my $system_prefix = 'lin_'; my $system_prefix = 'lin_';
if($^O eq 'MSWin32'){ $system_prefix = 'win_'; } if($^O eq 'MSWin32'){ $system_prefix = 'win_'; }
...@@ -287,7 +287,7 @@ SLUB::LZA::SIPBuilderBagIt::createDir($bag_output_path); ...@@ -287,7 +287,7 @@ SLUB::LZA::SIPBuilderBagIt::createDir($bag_output_path);
SLUB::LZA::SIPBuilderBagIt::createDir($data_output_path); SLUB::LZA::SIPBuilderBagIt::createDir($data_output_path);
File::Copy::Recursive::dircopy($ie_input_path, $data_output_path) or die "Could not perform dircopy() of $ie_input_path to autogenerated $data_output_path: $!"; File::Copy::Recursive::dircopy($ie_input_path, $data_output_path) or die "Could not perform dircopy() of $ie_input_path to autogenerated $data_output_path: $!";
SLUB::LZA::SIPBuilderBagIt::createDir($meta_output_path); SLUB::LZA::SIPBuilderBagIt::createDir($meta_output_path);
SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $meta_output_path, $input_rightsFilePath, \@addMetaFile, $mods); SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $meta_output_path, $input_rightsFilePath, \@addMetaFile, $marc21);
ok(SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bag_output_path, \@addBagInfo), "create_slub_bagit()"); ok(SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bag_output_path, \@addBagInfo), "create_slub_bagit()");
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";
...@@ -300,7 +300,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-md5.txt', 'xxxxxxxxxxxxxx ...@@ -300,7 +300,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-md5.txt', 'xxxxxxxxxxxxxx
workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 'bag-info.txt'); workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 'bag-info.txt');
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/00000001.tif', $valid_bag_path . '/data/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/00000001.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/00000001.tif', $valid_bag_path . '/data/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/00000001.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/mods.xml', $valid_bag_path . '/meta/mods.xml'), 1, "create_slub_bagit() $bag: validate meta/mods.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/marc21.xml', $valid_bag_path . '/meta/marc21.xml'), 1, "create_slub_bagit() $bag: validate meta/marc21.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt");
...@@ -328,7 +328,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx ...@@ -328,7 +328,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/scans_tif/00000001.tif', $valid_bag_path . '/data/scans_tif/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/scans_tif/00000001.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/scans_tif/00000001.tif', $valid_bag_path . '/data/scans_tif/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/scans_tif/00000001.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/scans_tif/00000002.tif', $valid_bag_path . '/data/scans_tif/00000002.tif'), 1, "create_slub_bagit() $bag: validate data/scans_tif/00000002.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/scans_tif/00000002.tif', $valid_bag_path . '/data/scans_tif/00000002.tif'), 1, "create_slub_bagit() $bag: validate data/scans_tif/00000002.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test.tiff', $valid_bag_path . '/data/test.tiff'), 1, "create_slub_bagit() $bag: validate data/test.tiff"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test.tiff', $valid_bag_path . '/data/test.tiff'), 1, "create_slub_bagit() $bag: validate data/test.tiff");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/mods.xml', $valid_bag_path . '/meta/mods.xml'), 1, "create_slub_bagit() $bag: validate meta/mods.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/marc21.xml', $valid_bag_path . '/meta/marc21.xml'), 1, "create_slub_bagit() $bag: validate meta/marc21.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt");
...@@ -359,7 +359,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx ...@@ -359,7 +359,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/img/scans_tif/00000001.tif', $valid_bag_path . '/data/img/scans_tif/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/img/scans_tif/00000001.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/img/scans_tif/00000001.tif', $valid_bag_path . '/data/img/scans_tif/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/img/scans_tif/00000001.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/img/scans_tif/00000002.tif', $valid_bag_path . '/data/img/scans_tif/00000002.tif'), 1, "create_slub_bagit() $bag: validate data/img/scans_tif/00000002.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/img/scans_tif/00000002.tif', $valid_bag_path . '/data/img/scans_tif/00000002.tif'), 1, "create_slub_bagit() $bag: validate data/img/scans_tif/00000002.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test.tiff', $valid_bag_path . '/data/test.tiff'), 1, "create_slub_bagit() $bag: validate data/test.tiff"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test.tiff', $valid_bag_path . '/data/test.tiff'), 1, "create_slub_bagit() $bag: validate data/test.tiff");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/mods.xml', $valid_bag_path . '/meta/mods.xml'), 1, "create_slub_bagit() $bag: validate meta/mods.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/marc21.xml', $valid_bag_path . '/meta/marc21.xml'), 1, "create_slub_bagit() $bag: validate meta/marc21.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt");
...@@ -389,7 +389,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx ...@@ -389,7 +389,7 @@ workaroundTagmanifest($bag_output_path . '/tagmanifest-sha512.txt', 'xxxxxxxxxxx
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/dir_test_äöüÄÖÜß/00000001.tif', $valid_bag_path . '/data/dir_test_äöüÄÖÜß/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/dir_test_äöüÄÖÜß/00000001.tif"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/dir_test_äöüÄÖÜß/00000001.tif', $valid_bag_path . '/data/dir_test_äöüÄÖÜß/00000001.tif'), 1, "create_slub_bagit() $bag: validate data/dir_test_äöüÄÖÜß/00000001.tif");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test_äöüÄÖÜß.tiff', $valid_bag_path . '/data/test_äöüÄÖÜß.tiff'), 1, "create_slub_bagit() $bag: validate data/test_äöüÄÖÜß.tiff"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/data/test_äöüÄÖÜß.tiff', $valid_bag_path . '/data/test_äöüÄÖÜß.tiff'), 1, "create_slub_bagit() $bag: validate data/test_äöüÄÖÜß.tiff");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/mods.xml', $valid_bag_path . '/meta/mods.xml'), 1, "create_slub_bagit() $bag: validate meta/mods.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/marc21.xml', $valid_bag_path . '/meta/marc21.xml'), 1, "create_slub_bagit() $bag: validate meta/marc21.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/meta/rights.xml', $valid_bag_path . '/meta/rights.xml'), 1, "create_slub_bagit() $bag: validate meta/rights.xml");
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bag-info.txt', $valid_bag_path . '/bag-info.txt'), 1, "create_slub_bagit() $bag: validate bag-info.txt"); # workaround
is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt"); is(equalFilesByIgnoringCRLF_LF($bag_output_path . '/bagit.txt', $valid_bag_path . '/bagit.txt'), 1, "create_slub_bagit() $bag: validate bagit.txt");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment