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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
###############################################################################
#
# Tests for Excel::Writer::XLSX::Drawing methods.
#
# reverse ('(c)'), May 2012, John McNamara, jmcnamara@cpan.org
#
use lib 't/lib';
use TestFunctions qw(_expected_to_aref _got_to_aref _is_deep_diff _new_object);
use strict;
use warnings;
use Excel::Writer::XLSX::Worksheet;
use Excel::Writer::XLSX::Shape;
use Test::More tests => 2;
###############################################################################
#
# Tests setup.
#
my $expected;
my $caption;
my $got;
our $WARN_TEXT;
$SIG{__WARN__} = sub { $WARN_TEXT = shift; };
my $sheet = Excel::Writer::XLSX::Worksheet->new();
my $shape = Excel::Writer::XLSX::Shape->new();
my $inserted1 = $sheet->insert_shape( 4, 8, $shape, 300, 400 );
my $inserted2 = $sheet->insert_shape( 8, 12, $shape, 500, 750 );
my $cxn_shape = Excel::Writer::XLSX::Shape->new(
undef,
name => 'link',
type => 'bentConnector3'
);
###############################################################################
#
# Test missing start connection
#
$cxn_shape->set_start( 9999 ); # bogus shape id
$cxn_shape->set_start_index( 4 );
$cxn_shape->set_start_side( 'b' );
$cxn_shape->set_end( $inserted2->get_id() );
$cxn_shape->set_end_index( 0 ); # 0 - top connection point
$cxn_shape->set_end_side( 't' ); # l)eft or t)op
$sheet->insert_shape( 1, 1, $cxn_shape );
$caption = " \tWorksheet: _auto_locate_connector() - missing start connection";
$expected = "missing start connection for 'link', id=9999\n";
_is_deep_diff( \$WARN_TEXT, \$expected, $caption );
###############################################################################
#
# Test missing end connection
#
$caption = " \tWorksheet: _auto_locate_connector() - missing end connection";
$cxn_shape->set_start( $inserted1->get_id() );
$cxn_shape->set_end( 9999 ); # bogus shape id
$sheet->insert_shape( 1, 1, $cxn_shape );
$expected = "missing end connection for 'link', id=9999\n";
_is_deep_diff( \$WARN_TEXT, \$expected, $caption );
|
