basis/peg/debugger/debugger-tests.factor

   1 USING: arrays continuations debugger io.streams.string peg tools.test ;
   2
   3 { "Peg parsing error at character position 0.\nExpected 'A' or 'B'\nGot 'xxxx'\n" } [
   4     [ "xxxx" "A" token "B" token 2array choice parse ] [ ] recover
   5     [ error. ] with-string-writer
   6 ] unit-test