Cover overridden layers in Layer1::Cyclades

This commit is contained in:
Eric A. Miller
2018-04-01 20:46:02 -04:00
parent 585d01895b
commit 3c6cfa8ecf

View File

@@ -128,6 +128,13 @@ sub setup : Tests(setup) {
$test->{info}->cache($cache_data); $test->{info}->cache($cache_data);
} }
sub layers : Tests(2) {
my $test = shift;
can_ok( $test->{info}, 'layers' );
is( $test->{info}->layers(), '01000001', q(Layers returns '01000001') );
}
sub os : Tests(2) { sub os : Tests(2) {
my $test = shift; my $test = shift;