view release on metacpan or  search on metacpan

t/09parser.t  view on Meta::CPAN

is ( BAZ::baz_ (),       $conf{BAZ}{baz_},       " BAZ::baz_     ");

my $prod = -483840;
my $res =
    main::foo_ () * main::_foo () * main::_foo_ () * main::foo () *
    main::bar () * main::baz () * main::foobar () * main::foobarbaz () *
    FOO::foo () * BAR::bar () * BAZ::baz () * BAZ::baz_ ();

is ($res, $prod, "Returned product");

chomp (my @p = do { local @ARGV = "$TestInlineSetup::DIR/parser_id"; <> });

my $expected_log_lines = 13;
is (scalar @p, $expected_log_lines, "Match number of lines in log");

TODO: {
local $TODO = 'Until pegex is default';
# diag "@p";
is_deeply (\@p, [
    "Inline::C::get_parser called",
    "Inline::C::Parser::Pegex::get_parser called",