4 BEGIN {plan tests => 1}
8 #----------------------------------------------------------------------
10 #----------------------------------------------------------------------
12 %height=("letter",27.9, "legal",35.6, "arche",121.9, "archd",91.4, "archc",61,
13 "archb",45.7, "archa",30.5, "flsa",33, "flse",33, "halfletter",21.6,
14 "11x17",43.2, "ledger",27.9);
15 %width=("letter",21.6, "legal",21.6, "arche",91.4, "archd",61, "archc",45.7,
16 "archb",30.5, "archa",22.9, "flsa",21.6, "flse",21.6, "halfletter",14,
17 "11x17",27.9, "ledger",43.2);
20 my $perltidyrc = <<'EOM';
28 destination => \$output,
29 perltidyrc => \$perltidyrc,
33 my $expected_output=<<'EOM';
35 "letter", 27.9, "legal", 35.6, "arche", 121.9,
36 "archd", 91.4, "archc", 61, "archb", 45.7,
37 "archa", 30.5, "flsa", 33, "flse", 33,
38 "halfletter", 21.6, "11x17", 43.2, "ledger", 27.9
41 "letter", 21.6, "legal", 21.6, "arche", 91.4,
42 "archd", 61, "archc", 45.7, "archb", 30.5,
43 "archa", 22.9, "flsa", 21.6, "flse", 21.6,
44 "halfletter", 14, "11x17", 27.9, "ledger", 43.2
47 ok($output, $expected_output);