File: illegal-options.t

package info (click to toggle)
libhtml-tidy-perl 1.60-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 472 kB
  • sloc: perl: 1,289; sh: 23; makefile: 7
file content (32 lines) | stat: -rw-r--r-- 531 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!perl -T

use strict;
use warnings;

use Test::Exception;
use Test::More;

use HTML::Tidy;

my @unsupported_options = qw(
    force-output
    gnu-emacs-file
    gnu-emacs
    keep-time
    quiet
    slide-style
    write-back
);

foreach my $option ( @unsupported_options ) {
    throws_ok {
        HTML::Tidy->new(
            {  config_file => 't/cfg-for-parse.cfg',
               $option     => 1,
            }
        );
    } qr/\QUnsupported option: $option\E/,
    "option $option is not supported";
}

done_testing();