Mercurial > pub > Impl
diff _test/Test/SQL/Traits.pm @ 167:1f7a6d762394
SQL schema in progress
author | sourcer |
---|---|
date | Thu, 12 May 2011 08:57:19 +0400 |
parents | 76515373dac0 |
children | 6148f89bb7bf |
line wrap: on
line diff
--- a/_test/Test/SQL/Traits.pm Sat Apr 23 23:12:06 2011 +0400 +++ b/_test/Test/SQL/Traits.pm Thu May 12 08:57:19 2011 +0400 @@ -48,7 +48,7 @@ my $column = $table->Column('id') or failed "Column not found"; assert( $column->name eq 'id'); - assert( $column->type->isSame(Integer()) ); + assert( $column->type->SameValue(Integer()) ); assert( not $column->isNullable ); assert( $column->tag->{auto_increment} ); @@ -62,7 +62,7 @@ assert($column); assert($column->name eq 'name'); - assert($column->type->isSame(Varchar(255))); + assert($column->type->SameValue(Varchar(255))); assert($column->isNullable); }; @@ -82,7 +82,7 @@ assert( $table->ColumnsCount == 3 ); assert( my $column = $table->Column('id') ); - assert($column->type->isSame(Varchar(64))); + assert($column->type->SameValue(Varchar(64))); assert(not $column->isNullable); assert( $column = $table->Column('role') );