File: export2.t

package info (click to toggle)
libtime-format-perl 1.12-3
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 288 kB
  • ctags: 40
  • sloc: perl: 534; makefile: 4
file content (16 lines) | stat: -rwxr-xr-x 616 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/perl -I..

use Test::More tests => 7;

BEGIN { $Time::Format::NOXS = 1 }
BEGIN { use_ok 'Time::Format', ':all' }

# hashes exported properly?
is ref tied %time,     Time::Format  => '%time exported by :all';
is ref tied %strftime, Time::Format  => '%strftime exported by :all';
is ref tied %manip,    Time::Format  => '%manip exported by :all';

# functions exported properly?
ok  defined &time_format              => 'time_format exported by :all';
ok  defined &time_strftime            => 'time_strftime exported by :all';
ok  defined &time_manip               => 'time_manip exported by :all';