File Coverage

blib/lib/Guacamole/Test.pm

Criterion	Covered	Total	%
statement	40	48	83.3
branch	2	2	100.0
condition	2	3	66.6
subroutine	9	10	90.0
pod	0	3	0.0
total	53	66	80.3

package Guacamole::Test;
our $AUTHORITY = 'cpan:XSAWYERX';
# ABSTRACT: What Guacamole uses to test itself
$Guacamole::Test::VERSION = '0.008';
use strict;
use warnings;

use Test::More;
use Data::Dumper;

use Guacamole;
use Guacamole::Dumper qw/dump_tree/;

use Exporter "import";

our @EXPORT = qw(
    parses
    parses_as
    parsent
    done_testing
);

sub parses {
    my ($text) = @_;

    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my @trees;
    eval { @trees = Guacamole->parse($text); }
    or do { diag($@); };

    # debugging
    if (0) {
        require DDP;
        my @dumped_trees = map dump_tree($_), @trees;
        &DDP::p([@dumped_trees]);
    }

    is( scalar(@trees), 1, "'$text': parsed unambiguously" );
    return \@trees;
}

sub parses_as {
    my ( $text, $user_trees ) = @_;

    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my $trees             = parses($text);
    my @dumped_trees      = map dump_tree($_), @{$trees};
    my @dumped_user_trees = map dump_tree($_), @{$user_trees};

    is_deeply(
        \@dumped_user_trees,
        \@dumped_trees,
        "'$text': parsed exactly as expected",
    );
}

sub parsent {
    my ($text) = @_;

    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my @trees;
    my $res = eval {
        @trees = Guacamole->parse($text);
        1;
    };
    my $err = $@;
    ok( !defined $res && defined $err, "'$text': did not parse" );

    foreach my $tree (@trees) {
        diag( dump_tree($tree) );
    }
}

1;

__END__