X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2FMakefile.PL.inc%2F56_autogen_schema_files.pl;fp=maint%2FMakefile.PL.inc%2F56_autogen_schema_files.pl;h=5d3bbba0795ff6f4b0a755e16ad029f8b11981f4;hb=ad93ee3644101e17d08bfbbd36cb3b181c9e27b2;hp=6096010f6d074ad3f0c128c8349bc5469f1aea26;hpb=409a3b1e1774dcaceb591544e656dd09e3a75878;p=dbsrgits%2FDBIx-Class.git

diff --git a/maint/Makefile.PL.inc/56_autogen_schema_files.pl b/maint/Makefile.PL.inc/56_autogen_schema_files.pl
index 6096010..5d3bbba 100644
--- a/maint/Makefile.PL.inc/56_autogen_schema_files.pl
+++ b/maint/Makefile.PL.inc/56_autogen_schema_files.pl
@@ -1,6 +1,8 @@
 require File::Spec;
 my $test_ddl_fn     = File::Spec->catfile(qw( t lib sqlite.sql ));
 my @test_ddl_cmd    = qw( -I lib -I t/lib -- maint/gen_sqlite_schema_files --schema-class DBICTest::Schema );
+my $test_graph_fn   = File::Spec->catfile(qw( examples DBICTest db-diagram.svg ));
+my @test_graph_cmd  = qw( -I lib -I t/lib -- maint/gen_dbictest_schema_diagram --schema-class DBICTest::Schema );
 
 my $example_ddl_fn  = File::Spec->catfile(qw( examples Schema db example.sql ));
 my $example_db_fn   = File::Spec->catfile(qw( examples Schema db example.db ));
@@ -15,6 +17,9 @@ if ( DBIx::Class::Optional::Dependencies->req_ok_for ('deploy') ) {
   print "Regenerating $test_ddl_fn\n";
   system( $^X, @test_ddl_cmd, '--ddl-out' => $test_ddl_fn );
 
+  print "Regenerating $test_graph_fn\n";
+  system( $^X, @test_graph_cmd, '--diagram-out' => $test_graph_fn );
+
   print "Regenerating $example_ddl_fn and $example_db_fn\n";
   system( $^X, @example_ddl_cmd, '--ddl-out' => $example_ddl_fn, '--deploy-to' => $example_db_fn );