Fix test. Inheritance wasn't working with the package defined inside

the test.
This commit is contained in:
Colin Kuskie 2009-07-22 00:20:44 +00:00
parent a84d352f21
commit 2daed0d1cc
2 changed files with 22 additions and 19 deletions

21
t/lib/WebGUI/SubClass.pm Normal file
View file

@ -0,0 +1,21 @@
package WebGUI::Crud::Subclass;
use strict;
use base 'WebGUI::Crud';
sub crud_definition {
my ($class, $session) = @_;
my $definition = $class->SUPER::crud_definition($session);
$definition->{tableName} = 'crudSubclass';
$definition->{tableKey} = 'crudSubclassId';
$definition->{sequenceKey} = '';
my $properties = $definition->{properties};
$properties->{field1} = {
fieldType => 'integer',
defaultValue => 5,
};
return $definition;
}
1;