File: 17-x2h_stylesheet.t

package info (click to toggle)
libxml-hash-xs-perl 0.64-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 736 kB
  • sloc: ansic: 5,177; perl: 322; xml: 15; makefile: 9
file content (19 lines) | stat: -rw-r--r-- 491 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
package main;
use strict;
use warnings;

use Test::More tests => 1;

use XML::Hash::XS 'xml2hash';
$XML::Hash::XS::keep_root = 0;

{
    is
        xml2hash('<?xml-stylesheet href="default.css" title="Default style"?>' .
                 '<?xml-stylesheet alternate="yes" href="alt.css" title="Alternative style"?>' .
                 '<?xml-stylesheet href="single-col.css" media="all and (max-width: 30em)"?>' .
                 '<root>OK</root>'),
        "OK",
        'simple',
    ;
}