From 485b97be9f2f2abf5a40923b5fd85f75714a8c02 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Mon, 24 Sep 2012 10:15:50 +0000 Subject: Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz. --- t/23_nulls.t | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 t/23_nulls.t (limited to 't/23_nulls.t') diff --git a/t/23_nulls.t b/t/23_nulls.t new file mode 100644 index 0000000..1cd0625 --- /dev/null +++ b/t/23_nulls.t @@ -0,0 +1,41 @@ +#!/usr/bin/perl + +# This is a test for correctly handling NULL values. + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use t::lib::Test; +use Test::More tests => 9; + +# Create a database +my $dbh = connect_ok(); + +# Create the table +ok( $dbh->do(<<'END_SQL'), 'CREATE TABLE' ); +CREATE TABLE one ( + id INTEGER, + name CHAR (64) +) +END_SQL + +# Test whether or not a field containing a NULL is returned correctly +# as undef, or something much more bizarre. +ok( + $dbh->do('INSERT INTO one VALUES ( NULL, ? )', {}, 'NULL-valued id' ), + 'INSERT', +); + +SCOPE: { + my $sth = $dbh->prepare('SELECT * FROM one WHERE id IS NULL'); + isa_ok( $sth, 'DBI::st' ); + ok( $sth->execute, '->execute ok' ); + my $row = $sth->fetchrow_arrayref; + is( scalar(@$row), 2, 'Two values in the row' ); + is( $row->[0], undef, 'First column is undef' ); + is( $row->[1], 'NULL-valued id', 'Second column is defined' ); + ok( $sth->finish, '->finish' ); +} -- cgit v1.2.1