Bug 22001: Add tests
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
parent
2849b188c8
commit
46ecd9def5
|
|
@ -16,9 +16,11 @@
|
|||
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
||||
|
||||
use Modern::Perl;
|
||||
use Test::More tests => 1;
|
||||
use Test::More tests => 2;
|
||||
use C4::Context;
|
||||
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $sql_mode = $dbh->selectrow_array(q|SELECT @@SQL_MODE|);
|
||||
like( $sql_mode, qr{STRICT_TRANS_TABLES}, 'Strict SQL modes must be turned on for tests' );
|
||||
|
||||
is( $dbh->{RaiseError}, 1, 'RaiseError must be turned on for tests' );
|
||||
|
|
|
|||
Loading…
Reference in New Issue