--- trunk/lib/SQLSession/Bootstrap.pm 2006/12/02 13:10:08 4 +++ trunk/lib/SQLSession/Bootstrap.pm 2006/12/03 14:01:53 15 @@ -21,13 +21,22 @@ dsn => 'DBI:Pg:dbname=test', ); - my $p = SQLSession::Model::Page->new(current_user => $system_user); - $p->create( + my $q = SQLSession::Model::Query->new(current_user => $system_user); + $q->create( name => 'test query', sql_query => 'select * from a;', on_database => $db, ); + $q->create( + name => 'All films', + sql_query => 'select * from film', + on_database => $db->create( + name => 'Pagila sample database', + dsn => 'DBI:Pg:dbname=pagila', + ), + ); + } 1;