From 4d8869f6d5e3de5a0a9a8861b966aa98809d9c02 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 25 Jul 2013 11:44:47 -0400 Subject: [PATCH] more refactoring Signed-off-by: Jason Etheridge --- Open-ILS/src/sql/Pg/make-pgtap-tests.pl | 31 +++++++++++++------------------ 1 file changed, 13 insertions(+), 18 deletions(-) diff --git a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl index 76bc1e554b..cd929fbf2b 100755 --- a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl +++ b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl @@ -39,29 +39,24 @@ print pgtap_sql_header(); handle_schemas( sub { my $schema = shift; + + sub handle_table_things { + my $schema = shift; + my $table_or_view = shift; + handle_columns( + $schema, + $table_or_view, + undef + ); + } + handle_tables( $schema, - sub { - my $schema = shift; - my $table = shift; - handle_columns( - $schema, - $table, - undef - ); - } + \&handle_table_things ); handle_views( $schema, - sub { - my $schema = shift; - my $view = shift; - handle_columns( - $schema, - $view, - undef - ); - } + \&handle_table_things ); } -- 2.11.0