Mercurial > pub > Impl
diff _test/Test/SQL/Traits.pm @ 168:6148f89bb7bf
IMPL::SQL::Schema::Traits::Diff alfa version
IMPL::lang added hash traits
author | sourcer |
---|---|
date | Mon, 16 May 2011 04:30:38 +0400 |
parents | 1f7a6d762394 |
children | d1676be8afcc |
line wrap: on
line diff
--- a/_test/Test/SQL/Traits.pm Thu May 12 08:57:19 2011 +0400 +++ b/_test/Test/SQL/Traits.pm Mon May 16 04:30:38 2011 +0400 @@ -45,7 +45,7 @@ ) ); - my $column = $table->Column('id') or failed "Column not found"; + my $column = $table->GetColumn('id') or failed "Column not found"; assert( $column->name eq 'id'); assert( $column->type->SameValue(Integer()) ); @@ -58,7 +58,7 @@ ) ); - $column = $table->Column('name'); + $column = $table->GetColumn('name'); assert($column); assert($column->name eq 'name'); @@ -81,11 +81,11 @@ assert( $table->ColumnsCount == 3 ); - assert( my $column = $table->Column('id') ); + assert( my $column = $table->GetColumn('id') ); assert($column->type->SameValue(Varchar(64))); assert(not $column->isNullable); - assert( $column = $table->Column('role') ); + assert( $column = $table->GetColumn('role') ); assert( $column->defaultValue eq 'user' ); };