# train2_2
# written by John Dannenhoffer

# make a plate
BOX       0  0  0  4  3  0

# add attributes 
UDPRIM    train2    filename $$/train2_2.txt

# 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
