Bug 29234: Further clean Z3950 Tests

[koha-ffzg.git] / t / Koha_MetadataRecord.t

diff --git a/t/Koha_MetadataRecord.t b/t/Koha_MetadataRecord.t
index 48d9c40..0bcc469 100755 (executable)
--- a/t/Koha_MetadataRecord.t
+++ b/t/Koha_MetadataRecord.t
@@ -22,8 +22,10 @@ use Modern::Perl;
 use Test::More tests => 5;
 use Test::Warn;
 
+use MARC::Record;
+
 BEGIN {
-        use_ok('Koha::MetadataRecord');
+    use_ok('Koha::MetadataRecord');
 }
 
 my $marcrecord = MARC::Record->new;
@@ -94,13 +96,13 @@ subtest "new() tests" => sub {
     my $record = MARC::Record->new();
     my $metadata_record;
 
-    warning_is { $metadata_record = new Koha::MetadataRecord({
+    warning_is { $metadata_record = Koha::MetadataRecord->new({
                         record => $record }) }
                { carped => 'No schema passed' },
         "Metadata schema is mandatory, raise a carped warning if omitted";
     is( $metadata_record, undef, "Metadata schema is mandatory, return undef if omitted");
 
-    $metadata_record = new Koha::MetadataRecord({
+    $metadata_record = Koha::MetadataRecord->new({
         record => $record,
         schema => 'marc21'
     });
@@ -115,7 +117,7 @@ subtest "new() tests" => sub {
     my $weird_record = {};
     bless $weird_record, 'Weird::Class';
 
-    $metadata_record = new Koha::MetadataRecord({
+    $metadata_record = Koha::MetadataRecord->new({
         record => $weird_record,
         schema => 'something',
         format => 'else',
@@ -129,7 +131,7 @@ subtest "new() tests" => sub {
     is( $metadata_record->id, 'an id', 'The id correctly set');
 
     # Having a record object is mandatory
-    warning_is { $metadata_record = new Koha::MetadataRecord({
+    warning_is { $metadata_record = Koha::MetadataRecord->new({
                                         record => undef,
                                         schema => 'something',
                                         format => 'else',
@@ -141,4 +143,3 @@ subtest "new() tests" => sub {
     is( $metadata_record, undef, 'record object mandatory')
 };
 
-1;