2013-02-09 10:49:22 -08:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use DDG::Test::Goodie;
|
|
|
|
|
2013-02-09 13:13:08 -08:00
|
|
|
zci answer_type => 'paper';
|
2013-02-09 10:49:22 -08:00
|
|
|
zci is_cached => 0;
|
|
|
|
|
|
|
|
ddg_goodie_test(
|
2013-02-09 13:13:08 -08:00
|
|
|
[qw(
|
|
|
|
DDG::Goodie::Paper
|
|
|
|
)],
|
|
|
|
'a0 paper size' => test_zci('841mm x 1189mm (33.11in x 46.81in)'),
|
|
|
|
'c10 paper dimension' => test_zci('28mm x 40mm (1.10in x 1.57in)'),
|
|
|
|
'b10 paper dimensions' => test_zci('31mm x 44mm (1.22in x 1.73in)'),
|
|
|
|
'letter paper size' => test_zci('210mm x 279mm (8.27in x 11in)'),
|
|
|
|
'legal paper dimensions' => test_zci('216mm x 336mm (8.5in x 14in)'),
|
2013-02-09 10:49:22 -08:00
|
|
|
);
|
|
|
|
|
|
|
|
done_testing;
|