-subtest 'Trivial test for AddMember_Auto' => sub {
- plan tests => 3;
- my $library = $builder->build({ source => 'Branch' });
- my $category = $builder->build({ source => 'Category' });
- my %borr = AddMember_Auto( surname=> 'Dick3', firstname => 'Philip', branchcode => $library->{branchcode}, categorycode => $category->{categorycode}, password => '34567890' );
- ok( $borr{borrowernumber}, 'Borrower hash contains borrowernumber' );
- like( $borr{cardnumber}, qr/^\d+$/, 'Borrower hash contains cardnumber' );
- my $patron = Koha::Patrons->find( $borr{borrowernumber} );
- isnt( $patron, undef, 'Patron found' );
-};
-