# -*- coding: utf-8 -*-
encoding: utf8
TITLE: my varonly
IN:
 <yatt:my x y z/>
 &yatt:x; &yatt:y; &yatt:z;
OUT:
    
TITLE: my text
IN:
 <yatt:my x=foo y='bar' z="baz"/>
 &yatt:x; &yatt:y; &yatt:z;
OUT:
 foo bar baz
TITLE: my scalar/list
IN:
 <yatt:my x:scalar=3 y:list='(&yatt:x;) x &yatt:x;'/>
 &yatt:x; &yatt:y[0]; &yatt:y[1]; &yatt:y[2];
OUT:
 3 3 3 3
TITLE: my body html
IN:
 <yatt:my x=foo y>
   <h2>&yatt:x;</h2>
 </yatt:my>
 &yatt:y;
OUT:
  
   <h2>foo</h2>
  
TITLE: my body html with widget invocation
IN:
 <yatt:my tmp>[<yatt:foo x="3" />]</yatt:my>
 (&yatt:tmp;)
  
 <!yatt:widget foo x>
 <h2>&yatt:x;</h2>
OUT:
 ([<h2>3</h2>
 ])
TITLE: my body code
IN:
 <yatt:my x=foo y:code>
   <h2>&yatt:x;</h2>
 </yatt:my>
 &yatt:y();
OUT:
  
   <h2>foo</h2>
  
TITLE: my att-elem
IN:
 <yatt:my foo>
 <:yatt:x:html ><h2>&yatt:foo;</h2></:yatt:x:html>
 <b>foo</b>
 <:yatt:y:html /><h3>&yatt:foo;</h3>
 </yatt:my>
 &yatt:x;
 &yatt:y;
OUT:
 <h2>
 <b>foo</b>
 </h2>
 <h3>
 <b>foo</b>
 </h3>
  
TITLE: block my
IN:
 <yatt:block><yatt:my x="foo"/>
   &yatt:x;
 </yatt:block>
 <yatt:block><yatt:my x="bar"/>
   &yatt:x;
 </yatt:block>
OUT:
   foo
   bar
  
TITLE: block my error
IN:
 <yatt:block><yatt:my x="foo"/>
   &yatt:x;
 </yatt:block>
 &yatt:x;
ERROR: No such variable 'x'
TITLE: my body source and code
IN:
 <!yatt:args x y>
 <yatt:my [code:code src:source]>
   <h2>&yatt:x;</h2>
   &yatt:y;
 </yatt:my>
 <pre>
 &yatt:src;
 </pre>
 &yatt:code();
PARAM[
- foo
- bar
]
OUT:
 <pre>
   &lt;h2&gt;&amp;yatt:x;&lt;/h2&gt;
   &amp;yatt:y;
 </pre>
  
   <h2>foo</h2>
   bar
  
TITLE: Conflict detection
IN:
 <!yatt:args x y>
 <yatt:my x/>
ERROR: Conflicting variable 'x' \(previously defined at line 1\)
FILE: otherfile.yatt
IN:
 <yatt:my x="foo"/>
 &yatt:x;
TITLE: Scope isolation.
IN:
 <yatt:my x="bar"/>
 <yatt:otherfile/>
 &yatt:x;
OUT:
 foo
 bar
TITLE: Wide char in my code
IN:
 <yatt:my x>
   <yatt:foreach my=c list='"\x{6f22}", "\x{5b57}"'>
     &yatt:c;
   </yatt:foreach>
 </yatt:my>
 &yatt:x;
OUT:
  
      漢
      字
   
   
TITLE: destructuring bind and spread operator
IN:
 <yatt:my [x y :::z]="1..8" />
 x=&yatt:x;
 y=&yatt:y;
 z=&yatt:z;
OUT:
 x=1
 y=2
 z=[
   3,
   4,
   5,
   6,
   7,
   8
 ]
  
TITLE: rvalue (list expression) of destructuring bind
IN:
 <yatt:my [x y :::z]="&yatt:default(1);, &yatt:default(2);" />
 x=&yatt:x;
 y=&yatt:y;
 z=&yatt:z;
OUT:
 x=1
 y=2
 z=[]
  
TITLE: [GH #181] initial value of my
IN:
 <yatt:my idx1="0" /><?perl= defined $idx1?>
 <yatt:my idx2=0 /><?perl= defined $idx2?>
 <yatt:my idx3:value="0" /><?perl= defined $idx3?>
 <yatt:my idx4:value=0 /><?perl= defined $idx4?>
OUT:
 1
 1
 1
 1
TITLE: Garbage before CLO should be correctly reported
IN:
 <yatt:my [chng ::key]="1..3";/>
ERROR: Garbage before CLO\(>\) for: <yatt:my, rest: ';/>'