38 lines
1.1 KiB
Perl
38 lines
1.1 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'paper';
|
|
zci is_cached => 1;
|
|
|
|
sub build_test {
|
|
my ($text, $input) = @_;
|
|
return test_zci($text, structured_answer => {
|
|
data => {
|
|
title => $text,
|
|
subtitle => "Paper size: $input"
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
});
|
|
}
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::Paper )],
|
|
'a0 paper size' => build_test('841mm x 1189mm (33.11in x 46.81in)', 'A0'),
|
|
'c10 paper dimension' => build_test('28mm x 40mm (1.10in x 1.57in)', 'C10'),
|
|
'b10 paper dimensions' => build_test('31mm x 44mm (1.22in x 1.73in)', 'B10'),
|
|
'letter paper size' => build_test('8.5in x 11in (215.9mm x 279.4mm)', 'letter'),
|
|
'legal paper dimensions' => build_test('216mm x 356mm (8.5in x 14in)', 'legal'),
|
|
'junior legal paper dimensions' => build_test('203mm x 127mm (8in x 5in)', 'junior legal'),
|
|
'ledger paper dimensions' => build_test('432mm x 279mm (17in x 11in)', 'ledger'),
|
|
'tabloid paper size' => build_test('279mm x 432mm (11in x 17in)', 'tabloid'),
|
|
);
|
|
|
|
done_testing;
|