5 |
|
|
6 |
use lib './lib'; |
use lib './lib'; |
7 |
|
|
8 |
use Test::More tests => 18; |
use Test::More tests => 19; |
9 |
use Test::Exception; |
use Test::Exception; |
10 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
11 |
|
|
22 |
ok( ! $orao->debug( 0 ), 'debug' ); |
ok( ! $orao->debug( 0 ), 'debug' ); |
23 |
ok( ! $orao->trace( 0 ), 'trace' ); |
ok( ! $orao->trace( 0 ), 'trace' ); |
24 |
|
|
25 |
|
is_deeply( $orao->prefs, { scale => 1, show_mem => 0, debug => 0, trace => 0 }, 'prefs' ); |
26 |
|
|
27 |
ok( $orao->init, 'init' ); |
ok( $orao->init, 'init' ); |
28 |
|
|
29 |
sub test_mem { |
sub test_mem { |