Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
59 lines (50 sloc) 1.15 KB
#!/usr/bin/perl -w
use strict;
use warnings;
use v5.10.1;
use utf8;
use Test::More tests => 10;
#use Test::More 'no_plan';
use Test::NoWarnings;
use App::Sqitch;
use App::Sqitch::Plan;
my $CLASS;
BEGIN {
$CLASS = 'App::Sqitch::Plan::Pragma';
require_ok $CLASS or die;
}
can_ok $CLASS, qw(
name
lspace
rspace
hspace
ropspace
lopspace
note
plan
value
);
my $sqitch = App::Sqitch->new;
my $plan = App::Sqitch::Plan->new(sqitch => $sqitch);
isa_ok my $dir = $CLASS->new(
name => 'foo',
plan => $plan,
), $CLASS;
isa_ok $dir, 'App::Sqitch::Plan::Line';
is $dir->format_name, '%foo', 'Name should format as "%foo"';
is $dir->format_value, '', 'Value should format as ""';
is $dir->as_string, '%foo', 'should stringify to "%foo"';
ok $dir = $CLASS->new(
name => 'howdy',
value => 'woody',
plan => $plan,
lspace => ' ',
hspace => ' ',
rspace => "\t",
lopspace => ' ',
operator => '=',
ropspace => ' ',
note => 'blah blah blah',
), 'Create pragma with more stuff';
is $dir->as_string, " % howdy = woody\t# blah blah blah",
'It should stringify correctly';
Something went wrong with that request. Please try again.