01base.t

来自「source of perl for linux application,」· T 代码 · 共 20 行

T
20
字号
use Test::More tests => 7;BEGIN { use_ok('Time::Piece'); }my $t = gmtime(315532800); # 00:00:00 1/1/1980isa_ok($t, 'Time::Piece', 'specific gmtime');cmp_ok($t->year, '==', 1980, 'correct year');cmp_ok($t->hour, '==',    0, 'correct hour');cmp_ok($t->mon,  '==',    1, 'correct mon');my $g = gmtime;isa_ok($g, 'Time::Piece', 'current gmtime');my $l = localtime;isa_ok($l, 'Time::Piece', 'current localtime');

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?