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') );