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