unmaintained/lambda/test/lambda.factor

   1 USING: lambda test hashtables sequences kernel ;
   2
   3 #! test simple parsing
   4 [ "(A. A)" ] [ "(b.b)" lambda-parse second bound-vars swap expr>string ] unit-test
   5
   6 #! test name replacement
   7 [ "(A. A)" ] [
   8                 "(b.b)" lambda-parse second "OK" H{ } clone [ set-hash ] keep
   9                 "OK" lambda-parse second replace-names bound-vars
  10                 swap expr>string
  11              ] unit-test