core/test/io/nested-style.factor

   1 IN: temporary
   2 USING: io kernel math namespaces styles test ;
   3
   4 [ "A" ] [
   5     [
   6         [
   7             H{ { highlight t } } [
   8                 H{ } [ "a" write ] with-nesting
   9             ] with-style
  10         ] string-out
  11     ] with-scope
  12 ] unit-test
  13
  14 [ "a" ] [
  15     [
  16         [
  17             H{ } [
  18                 H{ { highlight t } } [ "a" write ] with-nesting
  19             ] with-style
  20         ] string-out
  21     ] with-scope
  22 ] unit-test