From: Jason Etheridge <jason@esilibrary.com>
Date: Tue, 23 Jul 2013 20:34:32 +0000 (-0400)
Subject: handle ::bpchar with column_default
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fb25dc0344aad37790ce68937d789d1de56885c9;p=working%2FEvergreen.git

handle ::bpchar with column_default

Signed-off-by: Jason Etheridge <jason@esilibrary.com>
---

diff --git a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
index 8f0f91551c..b5665e692f 100755
--- a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
+++ b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
@@ -77,6 +77,9 @@ foreach my $schema ( @schemas ) {
             if (defined $col_default && $col_default =~ /::text/) {
                 $col_default =~ s/^'(.*)'::text$/$1/;
             }
+            if (defined $col_default && $col_default =~ /::bpchar/) {
+                $col_default =~ s/^'(.*)'::bpchar$/$1/;
+            }
             if ($col_type eq 'numeric' && defined $col_numeric_precision) {
                 $col_type .= "($col_numeric_precision";
                 if (defined $col_numeric_scale) {