[DBD::Pg 4/8] Test pg_enable_utf8 of -1, in addittion to 0 and 1.
[email protected] Wed, 21 May 2014 15:35:13 +0000
| Newsgroups | perl.dbd.pg.changes |
|---|---|
| Message-ID | <[email protected]> |
Committed by Nicholas Clark <[email protected]> Subject: [DBD::Pg 4/8] Test pg_enable_utf8 of -1, in addittion to 0 and 1. --- t/30unicode.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/30unicode.t b/t/30unicode.t index bec7d12..f4cd457 100644 --- a/t/30unicode.t +++ b/t/30unicode.t @@ -45,7 +45,7 @@ foreach ( [interpolated => "SELECT '$value'::$type"], ):()), ) { - foreach my $enable_utf8 (1, 0) { + foreach my $enable_utf8 (1, 0, -1) { my ($qtype, $sql, @args) = @$_; my $desc = "$state UTF-8 $qtype $type (pg_enable_utf8=$enable_utf8)"; is(utf8::is_utf8($sql), ($state eq 'upgraded'), "$desc query has correct flag") -- 1.8.4