# $Id: g4_dbfile_freezethaw.t 212 2005-08-30 11:47:14Z sherzodr $ use strict; use diagnostics; use Test::More; use File::Spec; use CGI::Session::Test::Default; for ( "DB_File", "FreezeThaw" ) { eval "require $_"; if ( $@ ) { plan(skip_all=>"$_ is NOT available"); exit(0); } } my $t = CGI::Session::Test::Default->new( dsn => "dr:DB_File;ser:FreezeThaw", args=>{FileName => File::Spec->catfile('t', 'sessiondata', 'cgisess.db')}); plan tests => $t->number_of_tests; $t->run();