File: 12import.t

package info (click to toggle)
libxml-libxslt-perl 1.66-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 468 kB
  • ctags: 733
  • sloc: perl: 798; ansic: 425; makefile: 51; xml: 21
file content (23 lines) | stat: -rw-r--r-- 517 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
# -*- cperl -*-
use Test;
BEGIN { plan tests => 5 }
END { ok(0) unless $loaded }
use XML::LibXSLT;
$loaded = 1;
ok(1);
my $x = XML::LibXML->new() ;
ok($x) ;
my $p = XML::LibXSLT->new();
ok($p);
my $xsl = <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 version="1.0"> <xsl:import href="example/2.xsl" />
 <xsl:output method="html" />
</xsl:stylesheet>
EOF

my $xsld = $x->parse_string($xsl) ;
ok($xsld) ;
my $tr = $p->parse_stylesheet($xsld) ;
ok($tr) ;