80 lines
2.3 KiB
Perl
80 lines
2.3 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'paper';
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::Paper )],
|
|
'a0 paper size' => test_zci(
|
|
'841mm x 1189mm (33.11in x 46.81in)',
|
|
structured_answer => {
|
|
input => ['A0'],
|
|
operation => 'Paper size',
|
|
result => '841mm x 1189mm (33.11in x 46.81in)'
|
|
}
|
|
),
|
|
'c10 paper dimension' => test_zci(
|
|
'28mm x 40mm (1.10in x 1.57in)',
|
|
structured_answer => {
|
|
input => ['C10'],
|
|
operation => 'Paper size',
|
|
result => '28mm x 40mm (1.10in x 1.57in)'
|
|
}
|
|
),
|
|
'b10 paper dimensions' => test_zci(
|
|
'31mm x 44mm (1.22in x 1.73in)',
|
|
structured_answer => {
|
|
input => ['B10'],
|
|
operation => 'Paper size',
|
|
result => '31mm x 44mm (1.22in x 1.73in)'
|
|
}
|
|
),
|
|
'letter paper size' => test_zci(
|
|
'210mm x 279mm (8.27in x 11in)',
|
|
structured_answer => {
|
|
input => ['letter'],
|
|
operation => 'Paper size',
|
|
result => '210mm x 279mm (8.27in x 11in)'
|
|
}
|
|
),
|
|
'legal paper dimensions' => test_zci(
|
|
'216mm x 356mm (8.5in x 14in)',
|
|
structured_answer => {
|
|
input => ['legal'],
|
|
operation => 'Paper size',
|
|
result => '216mm x 356mm (8.5in x 14in)'
|
|
}
|
|
),
|
|
'junior legal paper dimensions' => test_zci(
|
|
'203mm x 127mm (8in x 5in)',
|
|
structured_answer => {
|
|
input => ['junior legal'],
|
|
operation => 'Paper size',
|
|
result => '203mm x 127mm (8in x 5in)'
|
|
}
|
|
),
|
|
'ledger paper dimensions' => test_zci(
|
|
'432mm x 279mm (17in x 11in)',
|
|
structured_answer => {
|
|
input => ['ledger'],
|
|
operation => 'Paper size',
|
|
result => '432mm x 279mm (17in x 11in)'
|
|
}
|
|
),
|
|
'tabloid paper size' => test_zci(
|
|
'279mm x 432mm (11in x 17in)',
|
|
structured_answer => {
|
|
input => ['tabloid'],
|
|
operation => 'Paper size',
|
|
result => '279mm x 432mm (11in x 17in)'
|
|
}
|
|
),
|
|
);
|
|
|
|
done_testing;
|