#===========================================================================
=head1 t::Convert::CiscoTest
=head1 Methods
=cut
package t::Convert::CiscoTest;
use base qw(t::TestCase);
use strict;
use Convert::Cisco;
### Control which tests are run
#sub list_tests { return "test_noconfig" }
#----------------------------------------
=head2 test_nofile
=cut
sub test_nofile {
my $self = shift;
### Test
eval {
my $obj = Convert::Cisco->new();
$obj->to_xml("nosuchfile.bin", "test.xml");
};
### Assertions
$self->assert_not_null($@, "Expected error to be thrown");
$self->assert_log("FATAL> Cannot open nosuchfile.bin - No such file or directory at t/Convert/CiscoTest.pm line 30\n");
}
#----------------------------------------
=head2 test_to_xml
=cut
sub test_to_xml {
my $self = shift;
$self->register_file("test.xml");
### Test
my $obj = Convert::Cisco->new();
$obj->to_xml("t/data/cdr_20061026133657_105573.bin", "test.xml");
### Assertions
$self->assert_file_contents_identical("test.xml", "t/data/cdr_20061026133657_105573.xml");
$self->assert_log(undef);
}
#----------------------------------------
=head2 test_noconfig
=cut
sub test_noconfig {
my $self = shift;
$self->register_file("test.xml");
### Test
my $obj = Convert::Cisco->new(config=>"");
$obj->to_xml("t/data/cdr_20061026133657_105573.bin", "test.xml");
### Assertions
$self->assert_file_contents_identical("test.xml", "t/data/cdr_20061026133657_105573.noconfig.xml");
# Header warnings
$self->assert_log("WARN> CDB not configured: 1090");
$self->assert_log("WARN> CDE not configured: 4000");
$self->assert_log("WARN> CDE not configured: 4001");
$self->assert_log("WARN> CDE not configured: 4002");
$self->assert_log("WARN> CDE not configured: 6000");
$self->assert_log("WARN> CDE not configured: 6001");
$self->assert_log("WARN> CDE not configured: 6004");
# Record 1 warnings
$self->assert_log("WARN> CDB not configured: 1110");
$self->assert_log("WARN> CDE not configured: 3000");
# etc, etc
}
1;