# train2_1
# written by John Dannenhoffer

# make a box
BOX       0  0  0  4  3  2

# add attributes 
UDPRIM    train2    filename <<
#  this   is a comment
   Face   myFace   @            # error - ignored
   face   myFace   @            # real attribute

   EDGE   myEdge   edge_@       # string attribute
   edge   myEdge2  deleteMe     # string attribute

   node   myNode   @            # real attribute
   node   myNode   @_node       # overwrites with string
   NODE                         # error - no attrName

   edge   myEdge2               # deletes attribute
>>

# verify that there were 2 skipped directives (ie, errors)
ASSERT    @@nskip  2

# verify that attributes have been added to the box
PATBEG    iface  @nface
   SELECT    FACE  $myFace   iface
   ASSERT    @sellist[1]     iface
PATEND

PATBEG    iedge  @nedge
   SELECT    EDGE  $myEdge   $edge_+iedge
   ASSERT    @sellist[1]     iedge
PATEND

SELECT    EDGE  $myEdge2  $deleteMe
ASSERT    0  1                  # should not execute
CATBEG    $edge_not_found
CATEND

PATBEG    inode  @nnode
   SELECT    NODE  $myNode   val2str(inode,0)+$_node
   ASSERT    @sellist[1]     inode
PATEND

END
