File: parse_dsn.t

package info (click to toggle)
libcgi-session-perl 4.48-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 616 kB
  • sloc: perl: 1,920; makefile: 5
file content (17 lines) | stat: -r--r--r-- 249 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# $Id$

use strict;


# unit tests for parse_dsn

use Test::More tests => 1;

use CGI::Session;
my $s = CGI::Session->new();

is_deeply($s->parse_dsn('DR:FILE'), 
  { driver => 'file'}, 
  "parse_dsn: abbreviation and lower-casing");

$s->delete();