view release on metacpan or  search on metacpan

t/300_cluster.t  view on Meta::CPAN

use warnings FATAL => 'all';
use strict;

use Test::More tests => 10;
use File::Temp qw(tempdir);
use File::Slurp;

BEGIN { use_ok( 'Test::TempDatabase' ); }

my $td = tempdir('/dev/shm/temp_db_300_XXXXXX', CLEANUP => 1);
`chown postgres $td` unless $<;

my $test_db = Test::TempDatabase->new({ dbname => 'test_temp_db_test'
			, cluster_dir => $td });
isa_ok($test_db, 'Test::TempDatabase');
$test_db->create_cluster;
isnt(-f "$td/postgresql.conf", undef);

eval { $test_db->connect('template1'); };
like($@, qr#$td#);