no-pager/t/07-frey-svk.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 6;
use lib 'lib';

use Data::Dump qw/dump/;

my $debug = @ARGV ? 1 : 0;

BEGIN {
        use_ok('Frey::SVK');
}

ok( my $o = Frey::SVK->new, 'new' );

ok( my @modified = $o->modified, 'modified' );
diag dump @modified if $debug;

ok( my $data = $o->as_data, 'as_data' );
diag dump $data if $debug;

ok( my $info = $o->info, 'info' );
diag dump $info; # if $debug;

ok( my $markup = $o->as_markup, 'as_markup' );
diag dump $markup if $debug;

1	dpavlin	485	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5	dpavlin	535	use Test::More tests => 6;
6	dpavlin	485	use lib 'lib';
7
8			use Data::Dump qw/dump/;
9
10			my $debug = @ARGV ? 1 : 0;
11
12			BEGIN {
13			use_ok('Frey::SVK');
14			}
15
16			ok( my $o = Frey::SVK->new, 'new' );
17
18			ok( my @modified = $o->modified, 'modified' );
19			diag dump @modified if $debug;
20
21			ok( my $data = $o->as_data, 'as_data' );
22			diag dump $data if $debug;
23
24	dpavlin	505	ok( my $info = $o->info, 'info' );
25			diag dump $info; # if $debug;
26
27	dpavlin	535	ok( my $markup = $o->as_markup, 'as_markup' );
28			diag dump $markup if $debug;
29