File: rt18487.t

package info (click to toggle)
libdatetime-format-pg-perl 0.16010-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 260 kB
  • ctags: 224
  • sloc: makefile: 492; perl: 369
file content (10 lines) | stat: -rw-r--r-- 236 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
 
use strict;
use Test::More (tests => 1);

use DateTime::Duration;
use DateTime::Format::Pg;

my $dur = DateTime::Duration->new(nanoseconds => 3000);
my $val = DateTime::Format::Pg->format_duration($dur);

is($val, '@ 0.000003 seconds');