28 lines
612 B
Perl
28 lines
612 B
Perl
#!perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub register_tests {
|
|
my ( $self ) = @_;
|
|
$self->register_test('test_content_log_file');
|
|
$self->register_test('test_content_log_enabled');
|
|
$self->register_test('test_exclude');
|
|
}
|
|
|
|
sub test_content_log_file {
|
|
my ( $self ) = @_;
|
|
ok( $self->content_log_file, 'content_log_file() returns something' );
|
|
}
|
|
|
|
sub test_content_log_enabled {
|
|
my ( $self ) = @_;
|
|
ok( ! $self->content_log_enabled, 'content_log_enabled() returns false' );
|
|
}
|
|
|
|
sub test_exclude {
|
|
my ( $self ) = @_;
|
|
ok( ! $self->exclude, 'exclude() default method returns false' );
|
|
}
|
|
|