--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/Test/SQL/Diff.pm	Mon May 16 04:30:38 2011 +0400
@@ -0,0 +1,46 @@
+package Test::SQL::Diff;
+use strict;
+use warnings;
+use parent qw(IMPL::Test::Unit);
+
+use IMPL::Test qw(test failed assert);
+use IMPL::SQL::Schema();
+use IMPL::SQL::Types qw(Integer Varchar Text);
+use IMPL::SQL::Schema::Traits::Diff();
+use Data::Dumper;
+
+__PACKAGE__->PassThroughArgs;
+
+test diff => sub {
+	my $schemaSrc = new IMPL::SQL::Schema(name => 'simple', version => 1 );
+	
+	$schemaSrc->AddTable({
+		name => 'User',
+		columns => [
+			{ name => 'name', type => Varchar(255) }
+		]
+	});
+	
+	my $schemaDst = new IMPL::SQL::Schema(name => 'simple', version => 2 );
+	
+	my $users = $schemaDst->AddTable({
+		name => 'User',
+		columns => [
+			{ name => 'id', type => Integer },
+			{ name => 'login', type => Varchar(255) },
+			{ name => 'description', type => Text, isNullable => 1 }
+		]
+	});
+	
+	$users->SetPrimaryKey('id');
+	$users->AddConstraint( unique => { name => 'unique_user_login', columns => ['login'] } );
+	
+	warn Dumper(IMPL::SQL::Schema::Traits::Diff->Diff($schemaSrc,$schemaDst));
+	
+	$schemaSrc->Dispose;
+	$schemaDst->Dispose;
+	
+};
+
+
+1;
\ No newline at end of file