Bug 22001: Add tests

[koha-ffzg.git] / t / db_dependent / Koha / MarcSubfieldStructures.t

diff --git a/t/db_dependent/Koha/MarcSubfieldStructures.t b/t/db_dependent/Koha/MarcSubfieldStructures.t
index b61837a..7a755d9 100644 (file)
--- a/t/db_dependent/Koha/MarcSubfieldStructures.t
+++ b/t/db_dependent/Koha/MarcSubfieldStructures.t
@@ -19,9 +19,8 @@
 
 use Modern::Perl;
 
-use Test::More tests => 3;
+use Test::More tests => 1;
 
-use Koha::MarcSubfieldStructure;
 use Koha::MarcSubfieldStructures;
 use Koha::Database;
 
@@ -30,28 +29,30 @@ use t::lib::TestBuilder;
 my $schema = Koha::Database->new->schema;
 $schema->storage->txn_begin;
 
-my $builder = t::lib::TestBuilder->new;
-my $nb_of_fields = Koha::MarcSubfieldStructures->search->count;
-my $framework = $builder->build({ source => 'BiblioFramework' });
-my $new_field_1 = Koha::MarcSubfieldStructure->new({
-    frameworkcode => $framework->{frameworkcode},
-    tagfield => 200,
-    tagsubfield => 'a',
-})->store;
-my $new_field_2 = Koha::MarcSubfieldStructure->new({
-    frameworkcode => $framework->{frameworkcode},
-    tagfield => 245,
-    tagsubfield => 'a',
-})->store;
+subtest 'Trivial tests' => sub {
+    plan tests => 3;
 
-is( Koha::MarcSubfieldStructures->search->count, $nb_of_fields + 2, 'The 2 fields should have been added' );
+    my $builder = t::lib::TestBuilder->new;
+    my $nb_of_fields = Koha::MarcSubfieldStructures->search->count;
+    my $framework = $builder->build({ source => 'BiblioFramework' });
+    my $new_field_1 = Koha::MarcSubfieldStructure->new({
+        frameworkcode => $framework->{frameworkcode},
+        tagfield => 200,
+        tagsubfield => 'a',
+    })->store;
+    my $new_field_2 = Koha::MarcSubfieldStructure->new({
+        frameworkcode => $framework->{frameworkcode},
+        tagfield => 245,
+        tagsubfield => 'a',
+    })->store;
 
-my $retrieved_fields = Koha::MarcSubfieldStructures->search({ frameworkcode => $framework->{frameworkcode}, tagfield => 200, tagsubfield => 'a' });
-is( $retrieved_fields->count, 1, 'Search for a field by frameworkcode, tagfield and tagsubfield should return the field' );
+    is( Koha::MarcSubfieldStructures->search->count, $nb_of_fields + 2, 'The 2 fields should have been added' );
 
-$retrieved_fields->next->delete;
-is( Koha::MarcSubfieldStructures->search->count, $nb_of_fields + 1, 'Delete should have deleted the field' );
+    my $retrieved_fields = Koha::MarcSubfieldStructures->search({ frameworkcode => $framework->{frameworkcode}, tagfield => 200, tagsubfield => 'a' });
+    is( $retrieved_fields->count, 1, 'Search for a field by frameworkcode, tagfield and tagsubfield should return the field' );
 
-$schema->storage->txn_rollback;
+    $retrieved_fields->next->delete;
+    is( Koha::MarcSubfieldStructures->search->count, $nb_of_fields + 1, 'Delete should have deleted the field' );
+};
 
-1;
+$schema->storage->txn_rollback;