1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use Test::More tests => 2;
use SVG;
# test: duplicate ids, -raiseerror
my $svga = SVG->new();
my $dupnotdetected = eval {
$svga->group( id => 'the_group' );
$svga->group( id => 'the_group' );
1;
};
ok( !$dupnotdetected, "raiseerror" );
my $svgb = SVG->new( -raiseerror => 0, -printerror => 0 );
$svgb->group( id => 'the_group' );
$svgb->group( id => 'the_group' );
my $xml = $svgb->render();
like( $xml, qr/errors=/,
"raiseerror and printerror attribute in constructor" );
|
