#!/usr/bin/perl -w
###############################################################################
#
# A test for Spreadsheet::WriteExcel.
#
# Tests to ensure Spreadsheet::WriteExcel::Format->new() and set_properties
# don't do unsafe things.
#
use strict;
use Spreadsheet::WriteExcel::Format;
use Test::More tests => 2;
{
my $ok = 0;
eval {
my $foo = Spreadsheet::WriteExcel::Format->new(0, font => q#'); die ('Error# );
$ok = 1;
};
ok($ok, " Spreadsheet::WriteExcel::Format->new()");
}
{
my $ok = 0;
my $format = Spreadsheet::WriteExcel::Format->new();
eval {
my $foo = $format->set_properties(size => q#'); die ('Error# );
$ok = 1;
};
ok($ok, " Spreadsheet::WriteExcel::Format->set_properties()");
}