extra/nested-comments/nested-comments-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors eval kernel lexer nested-comments tools.test ;
   4 IN: nested-comments.tests
   5
   6 ! Correct
   7 { } [
   8     "USE: nested-comments (* comment *)" eval( -- )
   9 ] unit-test
  10
  11 { } [
  12     "USE: nested-comments (* comment*)" eval( -- )
  13 ] unit-test
  14
  15 { } [
  16     "USE: nested-comments (* comment
  17 *)" eval( -- )
  18 ] unit-test
  19
  20 { } [
  21     "USE: nested-comments (* comment
  22 *)" eval( -- )
  23 ] unit-test
  24
  25 { } [
  26     "USE: nested-comments (* comment
  27 *)" eval( -- )
  28 ] unit-test
  29
  30 { } [
  31     "USE: nested-comments (* comment
  32     (* *)
  33
  34 *)" eval( -- )
  35 ] unit-test
  36
  37 ! Malformed
  38 [
  39     "USE: nested-comments (* comment
  40     (* *)" eval( -- )
  41 ] [
  42     error>> T{ unexpected f "*)" f } =
  43 ] must-fail-with