File: debug.t

package info (click to toggle)
libpod-spell-perl 1.20-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 288 kB
  • ctags: 23
  • sloc: perl: 493; makefile: 2
file content (12 lines) | stat: -rw-r--r-- 241 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use Test::More;
use Pod::Spell;

my $p0 = new_ok 'Pod::Spell' => [ debug => 0 ];
my $p1 = new_ok 'Pod::Spell' => [ debug => 1 ];

ok ! $p0->_is_debug, 'debug unset';
ok   $p1->_is_debug, 'debug set';

done_testing;