Lines 1001-1009
subtest 'store() tests' => sub {
Link Here
|
1001 |
}; |
1001 |
}; |
1002 |
is( $@, '', 'No error should be raised by ->store if empty strings are passed' ); |
1002 |
is( $@, '', 'No error should be raised by ->store if empty strings are passed' ); |
1003 |
is( $itemtype->rentalcharge, undef, 'decimal DEFAULT NULL should default to null'); |
1003 |
is( $itemtype->rentalcharge, undef, 'decimal DEFAULT NULL should default to null'); |
1004 |
is( $itemtype->notforloan, undef, 'int DEFAULT NULL should default to null'); |
|
|
1005 |
is( $itemtype->hideinopac, 0, 'int NOT NULL DEFAULT 0 should default to 0'); |
1004 |
is( $itemtype->hideinopac, 0, 'int NOT NULL DEFAULT 0 should default to 0'); |
1006 |
|
1005 |
|
|
|
1006 |
my $currency = eval { |
1007 |
Koha::Acquisition::Currency->new( |
1008 |
{ |
1009 |
active => 'IT4test', |
1010 |
} |
1011 |
)->store; |
1012 |
}; |
1013 |
is( $currency->active, undef, 'int DEFAULT NULL should default to null'); |
1014 |
|
1007 |
subtest 'Bad value tests' => sub { |
1015 |
subtest 'Bad value tests' => sub { |
1008 |
|
1016 |
|
1009 |
plan tests => 3; |
1017 |
plan tests => 3; |
1010 |
- |
|
|