1set timeout 10 2set testprefix "testbgpmpattr " 3set aborted 0 4set color 1 5 6spawn "./testbgpmpattr" 7 8# proc simpletest { start } { 9 10simpletest "IPv6: IPV6 MP Reach, global nexthop, 1 NLRI" 11simpletest "IPv6-2: IPV6 MP Reach, global nexthop, 2 NLRIs" 12simpletest "IPv6-default: IPV6 MP Reach, global nexthop, 2 NLRIs + default" 13simpletest "IPv6-lnh: IPV6 MP Reach, global+local nexthops, 2 NLRIs + default" 14simpletest "IPv6-nhlen: IPV6 MP Reach, inappropriate nexthop length" 15simpletest "IPv6-nhlen2: IPV6 MP Reach, invalid nexthop length" 16simpletest "IPv6-nhlen3: IPV6 MP Reach, nexthop length overflow" 17simpletest "IPv6-nhlen4: IPV6 MP Reach, nexthop length short" 18simpletest "IPv6-nlri: IPV6 MP Reach, NLRI bitlen overflow" 19simpletest "IPv4: IPv4 MP Reach, 2 NLRIs + default" 20simpletest "IPv4-nhlen: IPv4 MP Reach, nexthop lenth overflow" 21simpletest "IPv4-nlrilen: IPv4 MP Reach, nlri lenth overflow" 22simpletest "IPv4-MLVPN: IPv4/MPLS-labeled VPN MP Reach, RD, Nexthop, 3 NLRIs" 23simpletest "IPv6-bug: IPv6, global nexthop, 1 default NLRI" 24simpletest "IPv6-unreach: IPV6 MP Unreach, 1 NLRI" 25simpletest "IPv6-unreach2: IPV6 MP Unreach, 2 NLRIs" 26simpletest "IPv6-unreach-default: IPV6 MP Unreach, 2 NLRIs + default" 27simpletest "IPv6-unreach-nlri: IPV6 MP Unreach, NLRI bitlen overflow" 28simpletest "IPv4-unreach: IPv4 MP Unreach, 2 NLRIs + default" 29simpletest "IPv4-unreach-nlrilen: IPv4 MP Unreach, nlri length overflow" 30simpletest "IPv4-unreach-MLVPN: IPv4/MPLS-labeled VPN MP Unreach, RD, 3 NLRIs" 31 32