view release on metacpan or  search on metacpan

t/bugs.t  view on Meta::CPAN

#!/usr/bin/perl

package Devel::Declare::Lexer::t;

use strict;
use warnings;
use Devel::Declare::Lexer qw/ :lexer_test /; # creates a lexer_test keyword and places lexed code into runtime $lexed

use Test::More;

#BEGIN { $Devel::Declare::Lexer::DEBUG = 1; }

my $tests = 0;
my $lexed;

lexer_test "A [%s] B [%s]", $answer, $question [Consent, Validate];
++$tests && is($lexed, q/lexer_test "A [%s] B [%s]", $answer, $question [Consent, Validate];/, 'With $question');

done_testing $tests;

#100 / 0;