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	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	use Test::More tests => 6;
6	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	ok( my $info = $o->info, 'info' );
25	diag dump $info; # if $debug;
26
27	ok( my $markup = $o->as_markup, 'as_markup' );
28	diag dump $markup if $debug;
29