|
Revision 164, 416 bytes
(checked in by miyagawa, 7 months ago)
|
|
PostgreSQL patch from clkao
|
-
Property svn:keywords set to
Id Revision
|
| Line | |
|---|
| 1 | # -*-perl-*- |
|---|
| 2 | |
|---|
| 3 | use strict; |
|---|
| 4 | use warnings; |
|---|
| 5 | |
|---|
| 6 | require 't/lib/db-common.pl'; |
|---|
| 7 | |
|---|
| 8 | use TheSchwartz; |
|---|
| 9 | use Test::More tests => 6; |
|---|
| 10 | |
|---|
| 11 | run_tests(2, sub { |
|---|
| 12 | my $client = test_client(dbs => ['ts1']); |
|---|
| 13 | |
|---|
| 14 | my $driver = $client->driver_for( ($client->shuffled_databases)[0] ); |
|---|
| 15 | isa_ok $driver, 'Data::ObjectDriver::Driver::DBI'; |
|---|
| 16 | |
|---|
| 17 | cmp_ok $client->get_server_time($driver), '>', 0, 'got server time'; |
|---|
| 18 | |
|---|
| 19 | teardown_dbs('ts1'); |
|---|
| 20 | }); |
|---|
