Index: /lang/perl/Jipotter/branches/Cipotter/t/20_model_db.t
===================================================================
--- /lang/perl/Jipotter/branches/Cipotter/t/20_model_db.t (revision 9866)
+++ /lang/perl/Jipotter/branches/Cipotter/t/20_model_db.t (revision 9866)
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+use Test::More qw( no_plan );
+use Cipotter::Model::DB;
+
+my $testdb = Cipotter::Model::DB->path_to('t/data/test.db');
+unlink $testdb if -f $testdb;
+
+ok !-f $testdb, 'testdb should not exist';
+
+Cipotter::Model::DB->config->{connect_info}->{database} = $testdb;
+
+my $model = Cipotter::Model::DB->new;
+
+is $model->database => $testdb, 'pointed to the test db';
+
+   $model->setup_database;
+
+ok -f $testdb && -s $testdb, 'seems created successfully';
+
+END {
+  $model->disconnect if $model;
+  unlink $testdb if -f $testdb;
+}