view release on metacpan or  search on metacpan

t/LMS.t  view on Meta::CPAN

ok(defined @toc_of_cstd, 'no error occured (list)');
ok(3 <= @toc_of_cstd, 'at least 3 includes CSTD* in CRTE');
ok(defined $toc_of_cstd[0]{name}, 'name of first CSTD* in CRTE defined');
is($toc_of_cstd[0]{name}, 'CSTDARG', 'first CSTD* in CRTE is CSTDARG');
like($toc_of_cstd[0]{version}, qr/^V\d\d\.\d([A-D]\d\d)?$/, 'element version');
is($toc_of_cstd[1]{storage_form}, 'V', 'storage form is V');
is($toc_of_cstd[2]{secondary_name}, '', 'secondary name is empty');
is($toc_of_cstd[0]{secondary_attribute}, '', 'secondary attribute is empty');
like($toc_of_cstd[1]{user_date},
     qr/^(?:19|20)\d\d-(?:0[1-9]|1[012])-(?:0[1-9]|[12][0-9]|3[01])/,
     'user date looks like a correct date');
like($toc_of_cstd[2]{user_time}, qr/^\d\d:\d\d:\d\d/,
     'user time look like a correct time');
like($toc_of_cstd[0]{creation_date},
     qr/^20\d\d-(?:0[1-9]|1[012])-(?:0[1-9]|[12][0-9]|3[01])/,
     'creation date is 20*');
like($toc_of_cstd[1]{creation_time}, qr/^\d\d:\d\d:\d\d/,
     'creation time look like a correct time');
like($toc_of_cstd[2]{modification_date},
     qr/^20\d\d-(?:0[1-9]|1[012])-(?:0[1-9]|[12][0-9]|3[01])/,
     'modification date is 20*');