View | Details | Raw Unified | Return to bug 17742
Collapse All | Expand All

(-)a/t/db_dependent/Patrons.t (-3 / +3 lines)
Lines 50-55 my $b1 = Koha::Patron->new( Link Here
50
    }
50
    }
51
);
51
);
52
$b1->store();
52
$b1->store();
53
my $now = dt_from_string;
53
my $b2 = Koha::Patron->new(
54
my $b2 = Koha::Patron->new(
54
    {
55
    {
55
        surname      => 'Test 2',
56
        surname      => 'Test 2',
Lines 72-84 $b3->store(); Link Here
72
my $b1_new = Koha::Patrons->find( $b1->borrowernumber() );
73
my $b1_new = Koha::Patrons->find( $b1->borrowernumber() );
73
is( $b1->surname(), $b1_new->surname(), "Found matching patron" );
74
is( $b1->surname(), $b1_new->surname(), "Found matching patron" );
74
isnt( $b1_new->updated_on, undef, "borrowers.updated_on should be set" );
75
isnt( $b1_new->updated_on, undef, "borrowers.updated_on should be set" );
75
is( dt_from_string($b1_new->updated_on), dt_from_string, "borrowers.updated_on should have been set to now on creating" );
76
is( dt_from_string($b1_new->updated_on), $now, "borrowers.updated_on should have been set to now on creating" );
76
77
77
my $b3_new = Koha::Patrons->find( $b3->borrowernumber() );
78
my $b3_new = Koha::Patrons->find( $b3->borrowernumber() );
78
is( dt_from_string($b3_new->updated_on), $three_days_ago, "borrowers.updated_on should have been kept to what we set on creating" );
79
is( dt_from_string($b3_new->updated_on), $three_days_ago, "borrowers.updated_on should have been kept to what we set on creating" );
79
$b3_new->set({ surname => 'another surname for Test 3' });
80
$b3_new->set({ surname => 'another surname for Test 3' });
80
$b3_new = Koha::Patrons->find( $b3->borrowernumber() );
81
$b3_new = Koha::Patrons->find( $b3->borrowernumber() );
81
is( dt_from_string($b1_new->updated_on), dt_from_string, "borrowers.updated_on should have been set to now on updating" );
82
is( $b3_new->surname, 'Test 3', "borrowers.surname should have not been updated with set without store" );
82
83
83
my @patrons = Koha::Patrons->search( { branchcode => $branchcode } );
84
my @patrons = Koha::Patrons->search( { branchcode => $branchcode } );
84
is( @patrons, 3, "Found 3 patrons with Search" );
85
is( @patrons, 3, "Found 3 patrons with Search" );
85
- 

Return to bug 17742