use encoding 'utf8';
use strict;

use File::Spec;
use Test::More ('no_plan');

BEGIN {
    use_ok('CGI::Session');
    use_ok("CGI::Session::Driver");
    use_ok("CGI::Session::Driver::file");
}

my $id;
my $s;

{
    ok($s = CGI::Session->new('driver:file;serializer:default', undef), 'Created CGI::Session object successfully');

    $id = $s -> id();
}

diag("Warnings expected. Consult docs re 'utf8'");
ok($id, 'Session created successfully');

# Emulate CGI::Session::Driver::file.pm.

my $dir_name  = File::Spec->tmpdir();
my $file_name = File::Spec->catfile($dir_name, "cgisess_$id");

$s = undef;

{
    $s = CGI::Session->new('driver:file;serializer:default', $id);
}

if ($@) {
    print STDERR $@;
    ok(1, q|Warning: Failed to recreate session. Cannot "use 'utf8'; in conjunction with CGI::Session"|);
} else {
    ok($s, 'Recreated session succeeded');
}

# Clean up /tmp as per RT 29969.

unlink $file_name;