basis/peg/search/search-tests.factor

   1 ! Copyright (C) 2007 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 !
   4 USING: kernel math math.parser arrays tools.test peg peg.parsers
   5 peg.search ;
   6 IN: peg.search.tests
   7
   8 { V{ 123 456 } } [
   9   "abc 123 def 456" 'integer' search
  10 ] unit-test
  11
  12 { V{ 123 "hello" 456 } } [
  13   "one 123 \"hello\" two 456" 'integer' 'string' 2array choice search
  14 ] unit-test
  15
  16 { "abc 246 def 912" } [
  17   "abc 123 def 456" 'integer' [ 2 * number>string ] action replace
  18 ] unit-test
  19