The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Class::DBI::Test::SQLite - Base class for Class::DBI tests

SYNOPSIS

use base 'Class::DBI::Test::SQLite';

__PACKAGE__->set_table('test');
__PACKAGE__->columns(All => qw/id name film salary/);

sub create_sql { 
	return q{
		id     INTEGER PRIMARY KEY,
		name   CHAR(40),
		film   VARCHAR(255),
		salary INT
	}
}

DESCRIPTION

This provides a simple base class for Class::DBI tests using SQLite. Each class for the test should inherit from this, provide a create_sql() method which returns a string representing the SQL used to create the table for the class, and then call set_table() to create the table, and tie it to the class.

METHODS

set_table

__PACKAGE__->set_table('test');

This combines creating the table with the normal Class::DBI table() call.

create_sql (abstract)

sub create_sql { 
	return q{
		id     INTEGER PRIMARY KEY,
		name   CHAR(40),
		film   VARCHAR(255),
		salary INT
	}
}

This should return, as a text string, the schema for the table represented by this class.