basis/compiler/tests/peg-regression-2.factor

   1 USING: peg.ebnf strings tools.test multiline ;
   2 IN: compiler.tests.peg-regression-2
   3
   4 GENERIC: <times> ( times -- term' )
   5 M: string <times> ;
   6
   7 EBNF: parse-regexp [=[
   8
   9 Times = .* => [[ "foo" ]]
  10
  11 Regexp = Times:t => [[ t <times> ]]
  12
  13 ]=]
  14
  15 { "foo" } [ "a" parse-regexp ] unit-test