Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph

1 files changed, 28 insertions, 0 deletions

diff --git a/t/17_createdrop.t b/t/17_createdrop.t
new file mode 100644
index 0000000..6e93b55
--- /dev/null
+++ b/t/17_createdrop.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+# This is a skeleton test. For writing new tests, take this file
+# and modify/extend it.
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use t::lib::Test;
+use Test::More tests => 4;
+use Test::NoWarnings;
+
+# Create a database
+my $dbh = connect_ok();
+
+# Create a table
+ok( $dbh->do(<<'END_SQL'), 'CREATE TABLE' );
+CREATE TABLE one (
+    id INTEGER NOT NULL,
+    name CHAR (64) NOT NULL
+)
+END_SQL
+
+# Drop the table
+ok( $dbh->do('DROP TABLE one'), 'DROP TABLE' );