Help language development. Donate to The Perl Foundation
#!perl6 use Grammar::PrettyErrors; use Test; plan 5; grammar G does Grammar::PrettyErrors { rule TOP { a b } } my $g = G.new(:quiet,:!colors); ok so $g.parse('a b'), 'parsed a valid string'; nok $g.parse('a c'), 'failed on an invalid string'; is $g.error.report, q:to/MSG/, "nice report"; --errors-- 1 │▶a c ^ Uh oh, something went wrong around line 1. Unable to parse TOP. MSG $*ERR.^find_method('print').wrap: -> |c { } ok so G.parse('a b'), 'parsed a valid string, class method'; nok G.parse('a c'), 'class method failed on an invalid string';