Merge pull request #16 from libwww-perl/snowflake

Add support for Snowflake URI

Author: oalders

Changes

@@ -1,6 +1,7 @@
 Revision history for Perl extension URI::db.
 
 0.19
+      - Added URI::snowflake.
 
 0.18  2017-11-03T15:01:43Z
       - Added URI::redshift to support db:redshift: URIs, thanks to a pull

lib/URI/snowflake.pm

@@ -0,0 +1,7 @@
+package URI::snowflake;
+use base 'URI::_odbc';
+our $VERSION = '0.19';
+
+sub default_port { 443 }
+
+1;

t/dbi.t

@@ -388,6 +388,36 @@ for my $spec (
         dbi => [ [EXAHOST => 'foo'], [EXAPORT => 123] ],
         qry => [ foo => 1, foo => 2, lol => 'yes', Driver => 'HPExasol' ],
     },
+    {
+        uri => 'db:snowflake:',
+        dsn => 'dbi:ODBC:',
+        dbi => [ [DSN => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:snowflake:dbadmin',
+        dsn => 'dbi:ODBC:DSN=dbadmin',
+        dbi => [ [DSN => 'dbadmin'] ],
+        qry => [],
+    },
+    {
+        uri => 'db:snowflake://yow',
+        dsn => 'dbi:ODBC:Server=yow;Port=443',
+        dbi => [ [Server => 'yow'], [Port => 443], [Database => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:snowflake://yow:33',
+        dsn => 'dbi:ODBC:Server=yow;Port=33',
+        dbi => [ [Server => 'yow'], [Port => 33], [Database => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:snowflake://foo:123/try?foo=1&foo=2&lol=yes&Driver=Snowflaker',
+        dsn => 'dbi:ODBC:Server=foo;Port=123;Database=try;foo=1;foo=2;lol=yes;Driver=Snowflaker',
+        dbi => [ [Server => 'foo'], [Port => 123], [Database => 'try'] ],
+        qry => [ foo => 1, foo => 2, lol => 'yes', Driver => 'Snowflaker' ],
+    },
 ) {
     my $uri = $spec->{uri};
     ok my $u = URI->new($uri), "URI $uri";

t/engines.t

@@ -48,6 +48,7 @@ for my $spec (
     [ vertica    => 5433,  'vertica'   ],
     [ ldapdb     => undef, 'ldapdb'    ],
     [ exasol     => 8563,  'exasol'    ],
+    [ snowflake  => 443,   'snowflake' ],
 ) {
     my ($engine, $port, $canon) = @{ $spec };
     my $prefix = "db:$engine";