|
Packit |
723767 |
#!/usr/bin/perl
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# This is a simple insert/fetch test.
|
|
Packit |
723767 |
|
|
Packit |
723767 |
use strict;
|
|
Packit |
723767 |
BEGIN {
|
|
Packit |
723767 |
$| = 1;
|
|
Packit |
723767 |
$^W = 1;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
use lib "t/lib";
|
|
Packit |
723767 |
use SQLiteTest;
|
|
Packit |
723767 |
use Test::More tests => 10;
|
|
Packit |
723767 |
use Test::NoWarnings;
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Create a database
|
|
Packit |
723767 |
my $dbh = connect_ok( RaiseError => 1 );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Create the table
|
|
Packit |
723767 |
ok( $dbh->do(<<'END_SQL'), 'CREATE TABLE' );
|
|
Packit |
723767 |
CREATE TABLE one (
|
|
Packit |
723767 |
id INTEGER NOT NULL,
|
|
Packit |
723767 |
name CHAR (64) NOT NULL
|
|
Packit |
723767 |
)
|
|
Packit |
723767 |
END_SQL
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Insert a row
|
|
Packit |
723767 |
ok( $dbh->do("INSERT INTO one VALUES ( 1, 'A' )"), 'INSERT' );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Now SELECT the row out
|
|
Packit |
723767 |
is_deeply(
|
|
Packit |
723767 |
$dbh->selectall_arrayref('SELECT * FROM one WHERE id = 1'),
|
|
Packit |
723767 |
[ [ 1, 'A' ] ],
|
|
Packit |
723767 |
'SELECT ok',
|
|
Packit |
723767 |
);
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Delete the row
|
|
Packit |
723767 |
ok( $dbh->do("DELETE FROM one WHERE id = 1"), 'DELETE' );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# Select an empty result
|
|
Packit |
723767 |
SCOPE: {
|
|
Packit |
723767 |
my $sth = $dbh->prepare('SELECT * FROM one WHERE id = 1');
|
|
Packit |
723767 |
isa_ok( $sth, 'DBI::st' );
|
|
Packit |
723767 |
ok( $sth->execute, '->execute' );
|
|
Packit |
723767 |
my $row1 = $sth->fetchrow_arrayref;
|
|
Packit |
723767 |
is( $row1, undef, 'fetch select deleted' );
|
|
Packit |
723767 |
my $row2 = $sth->fetchrow_arrayref;
|
|
Packit |
723767 |
is( $row2, undef, 'fetch empty statement handler' );
|
|
Packit |
723767 |
}
|